patrick/agdaproofs
1
0
Fork 0
mirror of https://github.com/Smaug123/agdaproofs synced 2025-10-13 07:38:40 +00:00
Code Issues Packages Projects Releases Wiki Activity

N-ary expansions (#113)

Browse Source
This commit is contained in:
Patrick Stevens
2020-04-12 12:16:20 +01:00
committed by GitHub
parent 380548134d
commit 269f2aa14f
11 changed files with 156 additions and 217 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Numbers/ClassicalReals/Sequences.agda
View File

@@ -1,4 +1,3 @@
{-# OPTIONS --safe --warning=error --without-K --guardedness #-}
open import Agda.Primitive using (Level; lzero; lsuc; _⊔_)
@@ -53,9 +52,6 @@ StrictlyIncreasing x = (n : ℕ) → (index x n) < (index x (succ n))
Increasing : Sequence A → Set (b ⊔ c)
Increasing x = (n : ℕ) → ((index x n) < (index x (succ n))) || ((index x n) ∼ (index x (succ n)))
Bounded : Sequence A → Set (a ⊔ c)
Bounded x = Sg A (λ K → (n : ℕ) → index x n < K)
sequencePredicate : (x : Sequence A) → A → Set b
sequencePredicate x a = Sg ℕ (λ n → index x n ∼ a)