absurdPatUnit.err

--- opening "absurdPatUnit.ma" ---
--- scope checking ---
--- type checking ---
type  Unit : Set
term  Unit.unit : < Unit.unit : Unit >
type  bla : Unit -> Set
error during typechecking:
bla
/// clause 1
/// absurd pattern does not match since type Unit is not empty