18 lines
359 B
Text
18 lines
359 B
Text
mutual
|
|
def isEven : Nat → Bool
|
|
| 0 => true
|
|
| n+1 => isOdd n
|
|
decreasing_by
|
|
sorry
|
|
|
|
def isOdd : Nat → Bool
|
|
| 0 => false
|
|
| n+1 => isEven n
|
|
decreasing_by
|
|
sorry
|
|
end
|
|
|
|
theorem isEven_double (x : Nat) : isEven (2 * x) = true := by
|
|
induction x with
|
|
| zero => simp [isEven]
|
|
| succ x ih => simp [Nat.mul_succ, isEven, isOdd, ih]
|