-t2)) (S O)) H (plus_le_compat (cweight c2) (plus (cweight c2) (tweight t2))
-(S O) (S O) (le_plus_l (cweight c2) (tweight t2)) (le_n (S O))))))))))).
+t2)) (S O)) H (le_plus_plus (cweight c2) (plus (cweight c2) (tweight t2)) (S
+O) (S O) (le_plus_l (cweight c2) (tweight t2)) (le_n (S O))))))))))).
+
+theorem flt_trans:
+ \forall (c1: C).(\forall (c2: C).(\forall (t1: T).(\forall (t2: T).((flt c1
+t1 c2 t2) \to (\forall (c3: C).(\forall (t3: T).((flt c2 t2 c3 t3) \to (flt
+c1 t1 c3 t3))))))))
+\def
+ \lambda (c1: C).(\lambda (c2: C).(\lambda (t1: T).(\lambda (t2: T).(\lambda
+(H: (lt (fweight c1 t1) (fweight c2 t2))).(\lambda (c3: C).(\lambda (t3:
+T).(\lambda (H0: (lt (fweight c2 t2) (fweight c3 t3))).(lt_trans (fweight c1
+t1) (fweight c2 t2) (fweight c3 t3) H H0)))))))).