File tree Expand file tree Collapse file tree 1 file changed +4
-6
lines changed Expand file tree Collapse file tree 1 file changed +4
-6
lines changed Original file line number Diff line number Diff line change @@ -155,7 +155,7 @@ opaque symbol eqn_complete x y : π(x = y) → π(istrue(eqn x y)) ≔
155
155
begin
156
156
induction
157
157
{ 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
159
159
{ assume i ; apply s ≠0 i ; }
160
160
{ assume y i j ; simplify ; }
161
161
}
@@ -302,8 +302,7 @@ begin
302
302
apply ∧ᵢ {
303
303
refine addnI m n p
304
304
} {
305
- //FIXME : generalize p fails
306
- generalize m ; generalize p ; induction
305
+ generalize p ; induction
307
306
{ assume m n h ; apply h }
308
307
{ assume z h m n i ; simplify ; rewrite h m n i ; reflexivity }
309
308
};
@@ -856,12 +855,11 @@ end;
856
855
opaque symbol leq_add2l p m n : π (istrue (p + m ≤ p + n ) ⇔ istrue (m ≤ n )) ≔
857
856
begin
858
857
assume p m n ; apply ∧ᵢ {
859
- //FIXME : generalize p fails
860
- generalize m ; generalize p ; induction
858
+ generalize p ; induction
861
859
{ assume m n h ; apply h ; }
862
860
{ assume p h m n i ; apply h m n i ; }
863
861
} {
864
- generalize m ; generalize p ; induction
862
+ generalize p ; induction
865
863
{ assume m n h ; apply h ; }
866
864
{ assume p h m n i ; apply h m n i ; }
867
865
};
You can’t perform that action at this time.
0 commit comments