fact: Definition unify_sat n : {A | A ++ (map (fun i => 2*i) (seq 0 n)) ~p (seq 0 n) ++ map S A}.
imports: Arith Lia List Permutation Undecidability.SetConstraints.FMsetC Undecidability.SetConstraints.Util.Facts Undecidability.Synthetic.Definitions ssreflect ssrbool ssrfun