fact: Definition UM_bound (x : UMType) := [fset UM_select u x | u <- [fset v in val x | isDia v]].
imports: mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base sltype) CompDecModal.K(K_def demo gentzen)