fact: Definition extend_with_id vars sigma := (map (fun x => (x,Var x)) (filter (fun x => negb (mem_bool X.eq_bool x (map (@fst _ _) sigma))) vars)) ++ sigma.
imports: Coq(Recdef List Arith Setoid) CoLoR(closure more_list list_permut list_set decidable_set)