fact: Hypothesis induc : forall t t' t'', (length t + length t' + length t'' < length (cons a1 b1 n1 c1) + length (cons a2 b2 n2 c2) + length (cons a3 b3 n3 c3))%nat -> lt t t' -> lt t' t'' -> lt t t''.
imports: EPSILON0 Arith List Omega Compare_dec Relations Wellfounded Max Tools More_nat AccP not_decreasing EPSILON0 More_nat Gamma0_prelude Gamma0_length term rpo