fact: Definition embed '(x, y, z) := Cantor.to_nat (Cantor.to_nat (x, y), z).
imports: Arith Lia List Permutation Undecidability.SetConstraints.FMsetC Undecidability.SetConstraints.Util.Facts Undecidability.Synthetic.Definitions ssreflect ssrbool ssrfun