record R where
  constructor MkR
  one : Type
  _ : Type