X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fsyntax%2Fsh.ma;h=8129473752d35bd95146f95897f66fe65431a75f;hb=3c7b4071a9ac096b02334c1d47468776b948e2de;hp=bb7aacd2c8337cf4190c4b9738ed2e485428b11e;hpb=db020b4218272e2e35641ce3bc3b0a9b3afda899;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/sh.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/sh.ma
index bb7aacd2c..812947375 100644
--- a/matita/matita/contribs/lambdadelta/static_2/syntax/sh.ma
+++ b/matita/matita/contribs/lambdadelta/static_2/syntax/sh.ma
@@ -12,7 +12,7 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "ground_2/lib/arith.ma".
+include "ground/lib/arith.ma".
 include "static_2/notation/functions/upspoon_2.ma".
 
 (* SORT HIERARCHY ***********************************************************)
@@ -24,3 +24,6 @@ record sh: Type[0] ≝ {
 
 interpretation "next sort (sort hierarchy)"
    'UpSpoon h s = (next h s).
+
+definition sh_is_next (h): relation nat ≝
+           λs1,s2. ⫯[h]s1 = s2.