fact: Record interpretation : Type := mkInterpretation { domain :> Type; some_elt : domain; fint : forall f : Sig, naryFunction1 domain (arity f) }.
imports: Coq(List) CoLoR(LogicUtil NaryFunction VecUtil VecMax NatUtil)