Nat2

include order

instance foo : unbounded_sequence

export foo.next
export foo.prev

extract iso_impl = this