X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcontribs%2FRELATIONAL%2FNLE%2Fdec.ma;h=7c45ab488d45897055e31cea808baec2afae5587;hb=ff31975b5e8899efaa9bd6daa236e12a8b62611f;hp=436dc7e62788ed5df336ef849fc223889a037e33;hpb=45d71beffd253ffd767a9afbfcec5c4f44afd8a8;p=helm.git diff --git a/matita/contribs/RELATIONAL/NLE/dec.ma b/matita/contribs/RELATIONAL/NLE/dec.ma index 436dc7e62..7c45ab488 100644 --- a/matita/contribs/RELATIONAL/NLE/dec.ma +++ b/matita/contribs/RELATIONAL/NLE/dec.ma @@ -18,12 +18,12 @@ include "NLE/props.ma". theorem nat_dec_lt_ge: \forall x,y. x < y \lor y <= x. intros 2; elim y; clear y; - [ auto + [ auto new timeout=100 | decompose; [ lapply linear nle_gen_succ_1 to H1. decompose. - subst. auto + subst. auto new timeout=100 depth=4 | lapply linear nle_lt_or_eq to H1; decompose; - subst; auto + subst; auto new timeout=100 ] ]. qed.