fact: Fixpoint T2_size (o:T2):nat := match o with zero => 0 | cons a b n c => S (T2_size a + T2_size b + n + T2_size c)%nat end.
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