8 lines
208 B
Text
8 lines
208 B
Text
structure Foo where
|
|
private mk ::
|
|
num : Int
|
|
den : Nat := 1
|
|
|
|
def Foo.normalize (a : Foo) : Foo :=
|
|
let n := Nat.gcd a.num.natAbs a.den
|
|
if n == 1 then a else { num := a.num / n, den := a.den / n }
|