fact: Record max_call : Type := build_max_call { max_call_call :> call; max_call_eq : call_nb_args max_call_call = arity (typ (call_fun max_call_call)) }.
imports: Coq(Morphisms Basics Lexicographic_Product) CoLoR(LogicUtil LSimple VecUtil RelUtil VecOrd EqUtil Lexico SN NatUtil)