record R where
  constructor MkR
  one : Type
  {auto _ : Type}