fact: Fixpoint remove_conflicts (x y f : term) (m : map_expr) : map_expr := match m with | Empty => Empty | Add x' y' f' m' => if (conflicted x x' || conflicted y y' || conflicted f f')%bool then remove_conflicts x y f m' else Add x' y' f' (remove_conflicts x y f m') end.
imports: Coq.NArith.NArith Coq.FSets.FMaps Coq.micromega.Lia Category.Lib Category.Lib.FMapExt