include "basic_1/tlt/props.ma".
-theorem lift_weight_map:
+lemma lift_weight_map:
\forall (t: T).(\forall (h: nat).(\forall (d: nat).(\forall (f: ((nat \to
nat))).(((\forall (m: nat).((le d m) \to (eq nat (f m) O)))) \to (eq nat
(weight_map f (lift h d t)) (weight_map f t))))))
(lift h d (THead (Flat f0) t0 t1)) (lift_head (Flat f0) t0 t1 h d)))
k)))))))))) t).
-theorem lift_weight:
+lemma lift_weight:
\forall (t: T).(\forall (h: nat).(\forall (d: nat).(eq nat (weight (lift h d
t)) (weight t))))
\def
(\lambda (_: nat).O) (\lambda (m: nat).(\lambda (_: (le d m)).(refl_equal nat
O)))))).
-theorem lift_weight_add:
+lemma lift_weight_add:
\forall (w: nat).(\forall (t: T).(\forall (h: nat).(\forall (d:
nat).(\forall (f: ((nat \to nat))).(\forall (g: ((nat \to nat))).(((\forall
(m: nat).((lt m d) \to (eq nat (g m) (f m))))) \to ((eq nat (g d) w) \to
(lift h d (THead (Flat f0) t0 t1)) (lift_head (Flat f0) t0 t1 h d)))
k))))))))))))) t)).
-theorem lift_weight_add_O:
+lemma lift_weight_add_O:
\forall (w: nat).(\forall (t: T).(\forall (h: nat).(\forall (f: ((nat \to
nat))).(eq nat (weight_map f (lift h O t)) (weight_map (wadd f w) (lift (S h)
O t))))))
(minus_n_O (wadd f w O)) (\lambda (m: nat).(\lambda (_: (le O m)).(refl_equal
nat (f m)))))))).
-theorem lift_tlt_dx:
+lemma lift_tlt_dx:
\forall (k: K).(\forall (u: T).(\forall (t: T).(\forall (h: nat).(\forall
(d: nat).(tlt t (THead k u (lift h d t)))))))
\def