fact: Fixpoint try_add_arc_one_to_many (x : A) (l : list A) : relation A := match l with | nil => R | y::l' => clos_trans (try_add_arc (try_add_arc_one_to_many x l') x y) end.
imports: Coq(Sumbool Arith) CoLoR(RelDec RelUtil ListUtil RelSub Path LogicUtil)