X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground_2%2Fynat%2Fynat_le.ma;h=54e946e96ca40a4ace88868863b258d2ce282cd5;hb=1fd63df4c77f5c24024769432ea8492748b4ac79;hp=ee8331d2fff18aaad0f820d290f3bc9473c5c8a2;hpb=397413c4196f84c81d61ba7dd79b54ab1c428ebb;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/ground_2/ynat/ynat_le.ma b/matita/matita/contribs/lambdadelta/ground_2/ynat/ynat_le.ma index ee8331d2f..54e946e96 100644 --- a/matita/matita/contribs/lambdadelta/ground_2/ynat/ynat_le.ma +++ b/matita/matita/contribs/lambdadelta/ground_2/ynat/ynat_le.ma @@ -46,7 +46,7 @@ fact yle_inv_O2_aux: ∀m:ynat. ∀x:ynat. m ≤ x → x = 0 → m = 0. #m #x * -m -x [ #m #n #Hmn #H destruct /3 width=1 by le_n_O_to_eq, eq_f/ | #m #H destruct -] +] qed-. lemma yle_inv_O2: ∀m:ynat. m ≤ 0 → m = 0. @@ -152,4 +152,4 @@ theorem yle_trans: Transitive … yle. /3 width=3 by transitive_le, yle_inj/ (**) (* full auto too slow *) | #x #z #H lapply (yle_inv_Y1 … H) // ] -qed-. +qed-.