File tree 5 files changed +8
-9
lines changed
Function/Enumeration/ListView
5 files changed +8
-9
lines changed Original file line number Diff line number Diff line change 1
1
name: MetaLogic
2
2
depend:
3
- cubical-0.5
3
+ cubical-0.7
4
4
standard-library-2.0
5
5
include: src
6
6
flags:
Original file line number Diff line number Diff line change 2
2
3
3
## Requirements
4
4
5
- - [ Agda v2.6.4.1 ] ( https://github.com/agda/agda/releases/tag/v2.6.4.1 )
6
- - [ agda-stdlib 1.7.2 78e11bdee2 ] ( https://github.com/agda/agda-stdlib/tree/78e11bdee2eaaf7652c7be32d890821aeebe8781 )
7
- - [ cubical-0.5 5427228029 ] ( https://github.com/agda/cubical/tree/5427228029fcd4f49cf28638835dac9082358121 )
5
+ - [ Agda v2.6.4.3 ] ( https://github.com/agda/agda/releases/tag/v2.6.4.1 )
6
+ - [ agda-stdlib 2.0 ] ( https://github.com/agda/agda-stdlib/releases/tag/v2.0 )
7
+ - [ cubical 0.7 ] ( https://github.com/agda/cubical/releases/tag/v0.7 )
8
8
- [ Font: JuliaMono] ( https://juliamono.netlify.app/ )
Original file line number Diff line number Diff line change @@ -15,6 +15,7 @@ module FOL.Syntax.ProofEnumeration (ℒ : Language) where
15
15
open import FOL.Syntax.Base ℒ
16
16
open import FOL.Syntax.Discrete ℒ
17
17
open import FOL.Syntax.Enumeration ℒ
18
+ open Enumℙ ⦃ ... ⦄
18
19
instance _ = ℒ
19
20
```
20
21
Original file line number Diff line number Diff line change @@ -31,9 +31,9 @@ private module Test (xs ys zs : 𝕃 ℕ) where
31
31
f zero = xs
32
32
f (suc n) = f n ++ ys
33
33
34
- test-solve∈++-n : ∀ n → xs ⊆ f n
35
- test-solve∈++-n zero = id
36
- test-solve∈++-n (suc n) H = solve∈++ (test-solve∈++-n n H)
34
+ -- test-solve∈++-n : ∀ n → xs ⊆ f n
35
+ -- test-solve∈++-n zero = id
36
+ -- test-solve∈++-n (suc n) H = solve∈++ (test-solve∈++-n n H)
37
37
38
38
test-solve∈++-0 : xs ⊆ xs ++ ys ++ zs
39
39
test-solve∈++-0 H = solve∈++ H
Original file line number Diff line number Diff line change @@ -150,8 +150,6 @@ record Enumℙ {A : 𝕋 ℓ} (P : A → 𝕋 ℓ′) : 𝕋 (ℓ ⊔ ℓ′) wh
150
150
cumℙ : Cumulation enumℙ
151
151
witℙ : ∀ x → P x ↔ enumℙ witness x
152
152
153
- open Enumℙ ⦃...⦄ public
154
-
155
153
Enum↔ℙ : Enum A ↔ Enumℙ λ (_ : A) → ⊤
156
154
Enum↔ℙ = ⇒: (λ (mkEnum f cum H) → mkEnumℙ f cum λ x → ⇒: (λ _ → H x) ⇐: (λ _ → tt))
157
155
⇐: (λ (mkEnumℙ f cum H) → mkEnum f cum λ x → H x .⇒ tt)
You can’t perform that action at this time.
0 commit comments