fact: Fixpoint dom (A: Set) (B: Set) (E : list (asn A B)) {struct E} : atoms := match E with | nil => empty | (VarAsn _ x _) :: E' => add x (dom E') | _ :: E' => dom E' end.
imports: Coq.FSets.FSets Coq.Lists.List Coq.Logic.Decidable Metalib.CoqFSetDecide Metalib.CoqListFacts Metalib.LibTactics Metalib.MetatheoryAtom Metalib.LibTactics