fact: Definition gt_call (gt_args : C -> relation call) : relation call := Rof (transp (lexprod (transp gtC) (fun r => transp (gt_args r)))) (fun c => @existT _ _ (code (call_fun c)) c).
imports: Coq(Morphisms Basics Lexicographic_Product) CoLoR(LogicUtil LSimple VecUtil RelUtil VecOrd EqUtil Lexico SN NatUtil)