Problem with relevance checking with type constructors

[algebraic-dev]

type Bool {
    true
    false
}

Fun (n: U60) : Type
Fun _ = Bool

Main : Type
Main = Fun 2

Does not triggers a relevance error.