Skip to content

Commit bd9470e

Browse files
authored
Details (#30)
- FOL: add builtins for quantifier notations - List: remove warnings - Nat: remove non-linear rule ```$x - $x ↪ _0```
1 parent 2a4794a commit bd9470e

File tree

5 files changed

+208
-211
lines changed

5 files changed

+208
-211
lines changed

FOL.lp

+4
Original file line numberDiff line numberDiff line change
@@ -6,6 +6,8 @@ require open Stdlib.Set Stdlib.Prop;
66

77
constant symbol ∀ [a] : (τ aProp) → Prop; // !! or \forall
88

9+
builtin "all" ≔ ∀;
10+
911
notationquantifier;
1012

1113
rule π (∀ $f) ↪ Π x, π ($f x);
@@ -14,6 +16,8 @@ rule π (∀ $f) ↪ Π x, π ($f x);
1416

1517
constant symbol ∃ [a] : (τ aProp) → Prop; // ?? or \exists
1618

19+
builtin "ex" ≔ ∃;
20+
1721
notationquantifier;
1822

1923
constant symbol ∃ᵢ [a p] (xa) : π (p x) → π (∃ p);

List.lp

+2-2
Original file line numberDiff line numberDiff line change
@@ -488,7 +488,7 @@ end;
488488

489489
symbol Arr : ℕ → SetSetTYPE;
490490

491-
rule Arr 0 $a $b ↪ τ $b
491+
rule Arr 0 _ $b ↪ τ $b
492492
with Arr ($n +1) $a $b ↪ τ $aArr $n $a $b;
493493

494494
// seqn
@@ -505,7 +505,7 @@ assert a (x y : τ a) ⊢ seqn 2 x y ≡ x ⸬ y ⸬ □;
505505
// iota
506506

507507
symbol iota : ℕ → ℕ → 𝕃 nat;
508-
rule iota $n 0 ↪ □
508+
rule iota _ 0 ↪ □
509509
with iota $n ($k +1) ↪ $niota ($n +1) $k;
510510

511511
assertiota 1 212 ⸬ □;

0 commit comments

Comments
 (0)