fact: Fixpoint plus (a b : t) :t := match a, b with | nil, y => y | x, nil => x | cons a n b, cons a' n' b' => (match Nat.compare a a' with | Datatypes.Lt => cons a' n' b' | Gt => (cons a n (plus b (cons a' n' b'))) | Eq => (cons a (S (n+n')) b') end) end where "a + b" := (plus a b) : lo_scope.
imports: hydras(T1 E0 Comparable) Coq(Arith Logic.Eqdep_dec Peano_dec List Bool Recdef Lia Wellfounded.Inverse_Image Wellfounded.Inclusion RelationClasses )