Definition of `Bool` should follow the builtin form

[ice1000]

See comment f62afb0#r31023192

I think providing a Bool defined as GADT and provide conversion to ⊤ ⊔ ⊤ will be better.