log-e-sappho/example/subt/rec-lockstep.msph

9 lines
103 B
Text

type A = { x : { y : A } }
type B = { y : { x : B } }
assert { x : B } <: A
assert A <: { x : B }