fact: Definition mkprefix {n} {C: νType n}: Type@{m'} := sigT (fun D : C.(prefix) => C.(Frame).(frame) (♢ _) D -> HSet@{m}).
imports: Logic.FunctionalExtensionality Bonak(Notation) Bonak(RewLemmas) Bonak(HSet) Bonak(LeYoneda)