X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FLevel-1%2FLambdaDelta%2Flift%2Fprops.ma;h=7c205f57ad34ffdebb9fc1cb47662774fe123391;hb=5412a7f12ed2034b4dfb6104440a2308d6a6e8e1;hp=f6f3eb39f38c12185daa3df8d47bcfa92a152cb4;hpb=b6c399fc59c61c1071c942f539fabda4d74bb922;p=helm.git

diff --git a/helm/software/matita/contribs/LAMBDA-TYPES/Level-1/LambdaDelta/lift/props.ma b/helm/software/matita/contribs/LAMBDA-TYPES/Level-1/LambdaDelta/lift/props.ma
index f6f3eb39f..7c205f57a 100644
--- a/helm/software/matita/contribs/LAMBDA-TYPES/Level-1/LambdaDelta/lift/props.ma
+++ b/helm/software/matita/contribs/LAMBDA-TYPES/Level-1/LambdaDelta/lift/props.ma
@@ -18,6 +18,8 @@ set "baseuri" "cic:/matita/LAMBDA-TYPES/Level-1/LambdaDelta/lift/props".
 
 include "lift/fwd.ma".
 
+include "s/props.ma".
+
 theorem thead_x_lift_y_y:
  \forall (k: K).(\forall (t: T).(\forall (v: T).(\forall (h: nat).(\forall 
 (d: nat).((eq T (THead k v (lift h d t)) t) \to (\forall (P: Prop).P))))))