module Issue710b

data r : Type where