X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Flib%2Fpts_dummy%2Flift.ma;h=036f8effad83b99e7ac80d29f16ab53ae98f0574;hb=ccf5878f2a2ec7f952f140e162391708a740517b;hp=27d3d192ed37b9ddbe277d5d1294657c2e239460;hpb=46e87acb755894f9234191d675eeb5db4f5b930b;p=helm.git

diff --git a/matita/matita/lib/pts_dummy/lift.ma b/matita/matita/lib/pts_dummy/lift.ma
index 27d3d192e..036f8effa 100644
--- a/matita/matita/lib/pts_dummy/lift.ma
+++ b/matita/matita/lib/pts_dummy/lift.ma
@@ -9,7 +9,10 @@
      \ /      
       V_______________________________________________________________ *)
 
-include "lambda/terms.ma".
+include "pts_dummy/terms.ma".
+
+(* to be put elsewhere *)
+definition if_then_else ≝ λT:Type[0].λe,t,f.match e return λ_.T with [ true ⇒ t | false ⇒ f].
 
 (* arguments: k is the depth (starts from 0), p is the height (starts from 0) *)
 let rec lift t k p ≝
@@ -32,7 +35,7 @@ notation "↑ _ k ^ n ( M )" non associative with precedence 40 for @{'Lift $n $
 interpretation "Lift" 'Lift n k M = (lift M k n). 
 
 (*** properties of lift ***)
-
+(* BEGIN HERE 
 lemma lift_0: ∀t:T.∀k. lift t k 0 = t.
 #t (elim t) normalize // #n #k cases (leb (S n) k) normalize // 
 qed.
@@ -132,3 +135,4 @@ qed.
 lemma Lift_length: ∀p,G. |Lift G p| = |G|.
 #p #G elim G -G; normalize //
 qed. 
+*)
\ No newline at end of file