fact: Fixpoint T1_inj (c:T1) : T2 := match c with EPSILON0.zero => zero | EPSILON0.cons a n b => cons zero (T1_inj a) n (T1_inj b) end.
imports: Arith Omega Compare_dec Relations Wellfounded Max Tools More_nat AccP not_decreasing EPSILON0 More_nat