fact: Fixpoint succb (a : t) := match a with nil => false | cons 0 _ _ => true | cons _ _ b => succb b end.
imports: hydras(T1 E0 Comparable) Coq(Arith Logic.Eqdep_dec Peano_dec List Bool Recdef Lia Wellfounded.Inverse_Image Wellfounded.Inclusion RelationClasses )