Skip to content

Commit

Permalink
Fix the proof of zagier_fix in experimental kernel.
Browse files Browse the repository at this point in the history
  • Loading branch information
jhlchan authored and mn200 committed Aug 17, 2023
1 parent fada2db commit c505f57
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions examples/fermat/twosq/windmillScript.sml
Expand Up @@ -1354,9 +1354,11 @@ Theorem zagier_fixes:
!n. n MOD 4 <> 0 ==> fixes zagier (mills n) = {(x,x,z) | n = windmill (x,x,z)}
Proof
rw[fixes_def, mills_def, EXTENSION, EQ_IMP_THM] >| [
`x' <> 0` by metis_tac[windmill_with_no_mind] >>
rename1 `windmill (x,y,z)` >>
`x <> 0` by metis_tac[windmill_with_no_mind] >>
fs[zagier_fix, windmill_def],
`x' <> 0` by metis_tac[windmill_with_no_mind] >>
rename1 `windmill (x,x,z)` >>
`x <> 0` by metis_tac[windmill_with_no_mind] >>
simp[zagier_fix]
]
QED
Expand Down

0 comments on commit c505f57

Please sign in to comment.