fact: Definition nat_to_z2 : nat_algebra s→ z2_algebra := λ s: sorts nat_signature, nat_rect (λ _, bool) false (λ n HP, negb HP).
imports: UniMath.Foundations.All UniMath.Combinatorics.StandardFiniteSets UniMath.Combinatorics.MoreLists UniMath.Algebra.Universal.Algebras UniMath.Algebra.Universal.Terms