fact: Fixpoint refine (a : t) : T1.T1 := match a with nil => T1.zero | cons i n b => T1.cons (\F i)%t1 n (refine b) end.
imports: hydras(T1 E0 Comparable) Coq(Arith Logic.Eqdep_dec Peano_dec List Bool Recdef Lia Wellfounded.Inverse_Image Wellfounded.Inclusion RelationClasses )