AFAIK, вы не можете, постулаты абстрактны.
Вы можете достичь того, что хотите, инвертировав порядок: вместо того, чтобы пытаться определить U
внутри module B
или N
, как высделайте, вместо этого сделайте
module M (U : Set) where
, а затем создайте экземпляр U
до Bool
или Nat
.