(* This file was automatically generated: do not edit *********************)
-include "LambdaDelta-1/subst0/defs.ma".
+include "Basic-1/subst0/defs.ma".
-include "LambdaDelta-1/lift/props.ma".
+include "Basic-1/lift/props.ma".
-include "LambdaDelta-1/lift/tlt.ma".
+include "Basic-1/lift/tlt.ma".
theorem subst0_weight_le:
\forall (u: T).(\forall (t: T).(\forall (z: T).(\forall (d: nat).((subst0 d
(weight_map f0 t2)) (plus (weight_map g u1) (weight_map g t1)) (le_plus_plus
(weight_map f0 u2) (weight_map g u1) (weight_map f0 t2) (weight_map g t1) (H1
f0 g H4 H5) (H3 f0 g H4 H5)))))))))))) k)))))))) d u t z H))))).
+(* COMMENTS
+Initial nodes: 4101
+END *)
theorem subst0_weight_lt:
\forall (u: T).(\forall (t: T).(\forall (z: T).(\forall (d: nat).((subst0 d
(lt_plus_plus (weight_map f0 u2) (weight_map g u1) (weight_map f0 t2)
(weight_map g t1) (H1 f0 g H4 H5) (H3 f0 g H4 H5)))))))))))) k)))))))) d u t
z H))))).
+(* COMMENTS
+Initial nodes: 4207
+END *)
theorem subst0_tlt_head:
\forall (u: T).(\forall (t: T).(\forall (z: T).((subst0 O u t z) \to (tlt
(lift_r u O)) (weight_map (wadd (\lambda (_: nat).O) (S (weight_map (\lambda
(_: nat).O) u))) (lift (S O) O u)) (lift_weight_add_O (S (weight_map (\lambda
(_: nat).O) u)) u O (\lambda (_: nat).O))))))))).
+(* COMMENTS
+Initial nodes: 347
+END *)
theorem subst0_tlt:
\forall (u: T).(\forall (t: T).(\forall (z: T).((subst0 O u t z) \to (tlt z
\lambda (u: T).(\lambda (t: T).(\lambda (z: T).(\lambda (H: (subst0 O u t
z)).(tlt_trans (THead (Bind Abbr) u z) z (THead (Bind Abbr) u t) (tlt_head_dx
(Bind Abbr) u z) (subst0_tlt_head u t z H))))).
+(* COMMENTS
+Initial nodes: 59
+END *)