Skip to content

Commit 7eae789

Browse files
authored
slight improvements following bug fixes in lambdapi (#10)
Deducteam/lambdapi#936 Deducteam/lambdapi#888
1 parent 4e72e32 commit 7eae789

File tree

1 file changed

+4
-6
lines changed

1 file changed

+4
-6
lines changed

Nat.lp

Lines changed: 4 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -155,7 +155,7 @@ opaque symbol eqn_complete x y : π(x = y) → π(istrue(eqn x y)) ≔
155155
begin
156156
induction
157157
{ assume y i; rewrite left i; apply top; }
158-
{ simplify; assume x h; /*FIXME: x0 is replaced by x!*/ induction
158+
{ simplify; assume x h; induction
159159
{ assume i; apply s0 i; }
160160
{ assume y i j; simplify; }
161161
}
@@ -302,8 +302,7 @@ begin
302302
apply ∧ᵢ {
303303
refine addnI m n p
304304
} {
305-
//FIXME: generalize p fails
306-
generalize m; generalize p; induction
305+
generalize p; induction
307306
{ assume m n h; apply h }
308307
{ assume z h m n i; simplify; rewrite h m n i; reflexivity }
309308
};
@@ -856,12 +855,11 @@ end;
856855
opaque symbol leq_add2l p m n : π (istrue (p + mp + n) ⇔ istrue (mn)) ≔
857856
begin
858857
assume p m n; apply ∧ᵢ {
859-
//FIXME: generalize p fails
860-
generalize m; generalize p; induction
858+
generalize p; induction
861859
{ assume m n h; apply h; }
862860
{ assume p h m n i; apply h m n i; }
863861
} {
864-
generalize m; generalize p; induction
862+
generalize p; induction
865863
{ assume m n h; apply h; }
866864
{ assume p h m n i; apply h m n i; }
867865
};

0 commit comments

Comments
 (0)