]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/delayed_updating/unwind/unwind2_prototerm_lift.ma
update in delayed_updating
[helm.git] / matita / matita / contribs / lambdadelta / delayed_updating / unwind / unwind2_prototerm_lift.ma
index 5b18cfb17b9c18f8d66d695b7443c39dcaee62e9..251d7ba72199c9bfcd93615c9edd395a6da63572 100644 (file)
@@ -23,7 +23,7 @@ include "delayed_updating/unwind/unwind2_prototerm.ma".
 (* Constructions with lift_prototerm ****************************************)
 
 lemma lift_unwind2_term_after (f1) (f2) (t):
-      [f2]▼[f1]t ⇔ ▼[f2∘f1]t.
+      🠡[f2]▼[f1]t ⇔ ▼[f2∘f1]t.
 #f1 #f2 #t @subset_eq_trans
 [| @subset_inclusion_ext_f1_compose ]
 @subset_equivalence_ext_f1_exteq #p
@@ -31,7 +31,7 @@ lemma lift_unwind2_term_after (f1) (f2) (t):
 qed.
 
 lemma unwind2_lift_term_after (f1) (f2) (t):
-      ▼[f2][f1]t ⇔ ▼[f2∘f1]t.
+      ▼[f2]🠡[f1]t ⇔ ▼[f2∘f1]t.
 #f1 #f2 #t @subset_eq_trans
 [| @subset_inclusion_ext_f1_compose ]
 @subset_equivalence_ext_f1_exteq #p