fact: Definition ρ (i a b: bool) (x y: nat) := match i, a, b with | false, true, _ => atom (to_nat (y, 1)) | true, false, _ => atom (to_nat (y, 1)) | _, _, false => arr (embed_var x) (atom (to_nat (y, 2))) | _, _, true => arr (atom (to_nat (y, 3))) (embed_var x) end.
imports: List Undecidability.SemiUnification.SemiU Undecidability.SemiUnification.Util(Enumerable) ssreflect ssrfun ssrbool