]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/matita/contribs/RELATIONAL/NLE/dec.ma
auto => auto new
[helm.git] / helm / software / matita / contribs / RELATIONAL / NLE / dec.ma
index 436dc7e62788ed5df336ef849fc223889a037e33..3b4e0203a9effc42642bc2bbfa8ff55b388390bf 100644 (file)
@@ -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
  | decompose;
    [ lapply linear nle_gen_succ_1 to H1. decompose.
-     subst. auto
+     subst. auto new depth=4
    | lapply linear nle_lt_or_eq to H1; decompose;
-     subst; auto
+     subst; auto new
    ]
  ].
 qed.