]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/rt_computation/jsx_lsubr.ma
milestone update in basic_2, update in ground and static_2
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / rt_computation / jsx_lsubr.ma
index 4e048982b52f16ddfefdbb4ebb2c03701731e49f..a821861ed656c54e04152c06d1584cbd71ae7c3a 100644 (file)
 include "static_2/static/lsubr.ma".
 include "basic_2/rt_computation/jsx.ma".
 
-(* COMPATIBILITY OF STRONG NORMALIZATION FOR UNBOUND RT-TRANSITION **********)
+(* COMPATIBILITY OF STRONG NORMALIZATION FOR EXTENDED RT-TRANSITION *********)
 
 (* Forward lemmas with restricted refinement for local environments *********)
 
-lemma jsx_fwd_lsubr (h) (G):
-      ∀L1,L2. G ⊢ L1 ⊒[h] L2 → L1 ⫃ L2.
-#h #G #L1 #L2 #H elim H -L1 -L2
+lemma jsx_fwd_lsubr (G):
+      ∀L1,L2. G ⊢ L1 ⊒ L2 → L1 ⫃ L2.
+#G #L1 #L2 #H elim H -L1 -L2
 /2 width=1 by lsubr_bind, lsubr_unit/
 qed-.