eval default (bool × unit × nat)
eval default (bool × bool × bool × bool)