]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambda_delta/Basic_2/functional/lift.ma
commit by user andrea
[helm.git] / matita / matita / contribs / lambda_delta / Basic_2 / functional / lift.ma
index 90e41e9a58d2c49a4cca3e8b908760f6fe762c34..78046720905bc2a961738df7879d27fca81a8352 100644 (file)
@@ -24,8 +24,8 @@ let rec flift d e U on U ≝ match U with
   | GRef _ ⇒ U
   ]
 | TPair I V T ⇒ match I with
-  [ Bind I ⇒ 𝕓{I} (flift d e V). (flift (d+1) e T)
-  | Flat I ⇒ 𝕗{I} (flift d e V). (flift d e T)
+  [ Bind2 I ⇒ ⓑ{I} (flift d e V). (flift (d+1) e T)
+  | Flat2 I ⇒ ⓕ{I} (flift d e V). (flift d e T)
   ]
 ].