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)) ≔
155155begin
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 s ≠0 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;
856855opaque symbol leq_add2l p m n : π (istrue (p + m ≤ p + n ) ⇔ istrue (m ≤ n )) ≔
857856begin
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 };
You can’t perform that action at this time.
0 commit comments