milestone update in basic_2, update in ground and static_2

[helm.git] / matita / matita / contribs / lambdadelta / static_2 / syntax / sh.ma

diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/sh.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/sh.ma
index 815924202ff696f4ed306fbc9819b75da36e4eca..8129473752d35bd95146f95897f66fe65431a75f 100644 (file)
--- a/matita/matita/contribs/lambdadelta/static_2/syntax/sh.ma
+++ b/matita/matita/contribs/lambdadelta/static_2/syntax/sh.ma
@@ -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.