- grafiteParser: we added the comand "defined" as a presentational

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / static / sh.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/sh.ma b/matita/matita/contribs/lambdadelta/basic_2/static/sh.ma
index f43b9b31d040f8ca740a04179091f43d3e7afa59..0d09320cc871665e968a39e15b0f3434c31d917a 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/static/sh.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/static/sh.ma
@@ -12,7 +12,7 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "ground_2/arith.ma".
+include "ground_2/lib/arith.ma".
 
 (* SORT HIERARCHY ***********************************************************)
 
@@ -23,14 +23,14 @@ record sh: Type[0] ≝ {
 }.
 
 definition sh_N: sh ≝ mk_sh S ….
-// qed.
+// defined.
 
 (* Basic properties *********************************************************)
 
 lemma nexts_le: ∀h,k,l. k ≤ (next h)^l k.
 #h #k #l elim l -l // normalize #l #IHl
 lapply (next_lt h ((next h)^l k)) #H
-lapply (le_to_lt_to_lt … IHl H) -IHl -H /2 width=2/
+lapply (le_to_lt_to_lt … IHl H) -IHl -H /2 width=2 by lt_to_le/
 qed.
 
 lemma nexts_lt: ∀h,k,l. k < (next h)^(l+1) k.