fact: Definition ψ0' : valuation := fun x => match of_nat x with | (x, 0) => substitute embed_var (ψ0 x) | _ => atom x end.
imports: List Undecidability.SemiUnification.SemiU Undecidability.SemiUnification.Util(Enumerable) ssreflect ssrfun ssrbool