We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 9fc7281 commit f080ef9Copy full SHA for f080ef9
HumanEvalLean/HumanEval24.lean
@@ -31,16 +31,13 @@ theorem largestDivisorSpec_go {n i : Nat} (hi : 2 ≤ i)
31
(hi' : ∀ j, 2 ≤ j → j < i → n % j ≠ 0) : LargestDivisorSpec n (largestDivisor.go n i) := by
32
fun_induction largestDivisor.go n i
33
case case1 i hni =>
34
- rw [largestDivisor.go, dif_pos hni]
35
apply LargestDivisorSpec.one
36
intro j hj hj'
37
apply hi' _ hj
38
exact Nat.mul_self_lt_mul_self_iff.1 (Nat.lt_of_le_of_lt hj' hni)
39
case case2 i hni hni' =>
40
- rw [largestDivisor.go, dif_neg hni, if_pos hni']
41
exact LargestDivisorSpec.div hi' hi hni'
42
case case3 i hni hni' ih =>
43
- rw [largestDivisor.go, dif_neg hni, if_neg hni']
44
apply ih (by omega)
45
intro j hj hij
46
by_cases hij' : j = i
0 commit comments