You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

13 lines
218 B

open gcdt2[Int]
fun plusFn [n: Int]: Int one->one Int {
{lhs, rhs: Int | rhs = lhs + n}
}
fun plusOp [n: Int]: Commutative {
{c: Commutative |
c.fn = {lhs: Int, rhs: (Int one->one Int) | rhs = plusFn[lhs]}
}
}