-- open nat subtype check {x : nat \ x > 0 }