File tree 5 files changed +208
-211
lines changed
5 files changed +208
-211
lines changed Original file line number Diff line number Diff line change @@ -6,6 +6,8 @@ require open Stdlib.Set Stdlib.Prop;
6
6
7
7
constant symbol ∀ [a ] : (τ a → Prop ) → Prop ; // !! or \forall
8
8
9
+ builtin "all" ≔ ∀;
10
+
9
11
notation ∀ quantifier ;
10
12
11
13
rule π (∀ $f ) ↪ Π x , π ($f x );
@@ -14,6 +16,8 @@ rule π (∀ $f) ↪ Π x, π ($f x);
14
16
15
17
constant symbol ∃ [a ] : (τ a → Prop ) → Prop ; // ?? or \exists
16
18
19
+ builtin "ex" ≔ ∃;
20
+
17
21
notation ∃ quantifier ;
18
22
19
23
constant symbol ∃ᵢ [a p ] (x :τ a ) : π (p x ) → π (∃ p );
Original file line number Diff line number Diff line change 488
488
489
489
symbol Arr : ℕ → Set → Set → TYPE ;
490
490
491
- rule Arr 0 $ a $b ↪ τ $b
491
+ rule Arr 0 _ $b ↪ τ $b
492
492
with Arr ($n +1 ) $a $b ↪ τ $a → Arr $n $a $b ;
493
493
494
494
// seqn
@@ -505,7 +505,7 @@ assert a (x y : τ a) ⊢ seqn 2 x y ≡ x ⸬ y ⸬ □;
505
505
// iota
506
506
507
507
symbol iota : ℕ → ℕ → 𝕃 nat ;
508
- rule iota $ n 0 ↪ □
508
+ rule iota _ 0 ↪ □
509
509
with iota $n ($k +1 ) ↪ $n ⸬ iota ($n +1 ) $k ;
510
510
511
511
assert ⊢ iota 1 2 ≡ 1 ⸬ 2 ⸬ □;
You can’t perform that action at this time.
0 commit comments