fact: Fixpoint T1_size (o:T1):nat := match o with zero => 0 | cons a n b => S (T1_size a + n + T1_size b)%nat end.
imports: Arith Omega Compare_dec Relations Wellfounded Tools More_nat Wf_nat AccP not_decreasing ArithRing term rpo List