fact: Definition princop {s: sorts σ} (t: term σ s): names σ := pr1 (term_decompose t).
imports: UniMath.MoreFoundations.Notations UniMath.MoreFoundations.PartA UniMath.Combinatorics.Maybe UniMath.Algebra.Universal.SortedTypes UniMath.Algebra.Universal.Signatures