File tree Expand file tree Collapse file tree 5 files changed +208
-211
lines changed Expand file tree Collapse file tree 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;
66
77constant symbol ∀ [a ] : (τ a → Prop ) → Prop ; // !! or \forall
88
9+ builtin "all" ≔ ∀;
10+
911notation ∀ quantifier ;
1012
1113rule π (∀ $f ) ↪ Π x , π ($f x );
@@ -14,6 +16,8 @@ rule π (∀ $f) ↪ Π x, π ($f x);
1416
1517constant symbol ∃ [a ] : (τ a → Prop ) → Prop ; // ?? or \exists
1618
19+ builtin "ex" ≔ ∃;
20+
1721notation ∃ quantifier ;
1822
1923constant symbol ∃ᵢ [a p ] (x :τ a ) : π (p x ) → π (∃ p );
Original file line number Diff line number Diff line change 488488
489489symbol Arr : ℕ → Set → Set → TYPE ;
490490
491- rule Arr 0 $ a $b ↪ τ $b
491+ rule Arr 0 _ $b ↪ τ $b
492492with Arr ($n +1 ) $a $b ↪ τ $a → Arr $n $a $b ;
493493
494494// seqn
@@ -505,7 +505,7 @@ assert a (x y : τ a) ⊢ seqn 2 x y ≡ x ⸬ y ⸬ □;
505505// iota
506506
507507symbol iota : ℕ → ℕ → 𝕃 nat ;
508- rule iota $ n 0 ↪ □
508+ rule iota _ 0 ↪ □
509509with iota $n ($k +1 ) ↪ $n ⸬ iota ($n +1 ) $k ;
510510
511511assert ⊢ iota 1 2 ≡ 1 ⸬ 2 ⸬ □;
You can’t perform that action at this time.
0 commit comments