fact: Definition make_signature_single_sorted (O: hSet) (ar: O → nat) : signature := make_signature (unit,, isdecequnit) O (λ op, fill tt (ar op) ,, tt).
imports: UniMath.MoreFoundations.Notations UniMath.Combinatorics.StandardFiniteSets UniMath.Combinatorics.DecSet UniMath.Combinatorics.MoreLists