]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/contribs/RELATIONAL/NLE/dec.ma
Notation is finally fully working everywhere.
[helm.git] / matita / contribs / RELATIONAL / NLE / dec.ma
index 6bdb81946269bb7313a9d95f0ab2197962ddd4bb..7c45ab488d45897055e31cea808baec2afae5587 100644 (file)
@@ -18,14 +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.
-     rewrite > H1. clear H1 n. auto
+     subst. auto new timeout=100 depth=4
    | lapply linear nle_lt_or_eq to H1; decompose;
-     [ auto
-     | rewrite > H. clear H n. auto
-     ]
+     subst; auto new timeout=100
    ]
  ].
 qed.