X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FRELATIONAL%2FNLE%2Fprops.ma;h=3654b7d898bcb0c29f0136f50cd8f40245225db2;hb=63adafe5fb700c8ecf13f74fc31086c173617e86;hp=db1476309eeca1e40e17833d0705519e1e49c6b8;hpb=00e0c1d5cff8d5b5588185e1a70352a2e7a1a8e9;p=helm.git diff --git a/helm/software/matita/contribs/RELATIONAL/NLE/props.ma b/helm/software/matita/contribs/RELATIONAL/NLE/props.ma index db1476309..3654b7d89 100644 --- a/helm/software/matita/contribs/RELATIONAL/NLE/props.ma +++ b/helm/software/matita/contribs/RELATIONAL/NLE/props.ma @@ -17,15 +17,15 @@ set "baseuri" "cic:/matita/RELATIONAL/NLE/props". include "NLE/order.ma". theorem nle_trans_succ: \forall x,y. x <= y \to x <= succ y. - intros. elim H; clear H x y; auto. + intros. elim H; clear H x y; autobatch. qed. theorem nle_gt_or_le: \forall x, y. y > x \lor y <= x. intros 2; elim y; clear y; - [ auto + [ autobatch | decompose; [ lapply linear nle_inv_succ_1 to H1 | lapply linear nle_lt_or_eq to H1 - ]; decompose; subst; auto depth = 4 + ]; decompose; subst; autobatch depth = 4 ]. qed.