fact: Definition simple_t := neg (conj (disj top bot) (neg bot)).
imports: UniMath.Foundations.All UniMath.Combinatorics.StandardFiniteSets UniMath.Combinatorics.MoreLists UniMath.Algebra.Universal.TermAlgebras UniMath.Algebra.Universal.Examples.Nat UniMath.Algebra.Universal.Examples.Bool