Module Alias.Calc

val (-) : 'a -> 'b -> [> `calc of [> `sub of 'a * 'b ] ]
val (+) : 'a -> 'b -> [> `calc of [> `add of 'a * 'b ] ]
val (*) : 'a -> 'b -> [> `calc of [> `mult of 'a * 'b ] ]