fact: Axiom disjoint_cons_r : forall A B x a (E : list (atom*A)) (F : list (atom*B)), disjoint F ((x, a) :: E) <-> ~ In x (dom F) /\ disjoint E F.
imports: Coq.FSets.FSets Coq.Lists.List Coq.Logic.Decidable Metalib.CoqFSetDecide Metalib.CoqListFacts Metalib.AssocList Metalib.MetatheoryAtom Metalib.LibTactics