metamath/valid/induction-divisibility-9div10tonm1.mm (25 lines of code) (raw):

${ $d N x $. $d ph x y $. induction-divisibility-9div10tonm1.0 $e |- ( ph -> N e. NN0 ) $. $( (Contributed by Stanislas Polu, 8-Oct-2020.) $) induction-divisibility-9div10tonm1 $p |- ( ph -> 9 || ( ( ; 1 0 ^ N ) - 1 ) ) $= ( wcel c9 c1 cc0 cexp co cmin cdvds wbr caddc wceq oveq2 oveq1d breq2d cmul a1i breqtrd vx vy cn0 id cv 9nn0 nn0zi dvds0 ax-mp 1m1e0 breqtrri 1nn0 0nn0 cdc cz deccl nn0cni exp0i oveq1i wa simpr simplr zexpcl sylancr dvdsmultr1d iddvds mpan 1zzd zsubcld adantl adantr zmulcld dvds2addd cc 9cn expcld 1cnd mulcld eqcomd mulid2d oveq2d adddird 9p1e10b expp1d mulcomd nn0indd syl2anc addsubassd eqtr4d ) AABUCDEFGUNZBHIZFJIZKLZAUDCAEWJUAUEZHIZFJIZKLEWJGHIZFJI ZKLZEWJUBUEZHIZFJIZKLZEWJWTFMIZHIZFJIZKLWMUAUBBWNGNZWPWREKXGWOWQFJWNGWJHOPQ WNWTNZWPXBEKXHWOXAFJWNWTWJHOPQWNXDNZWPXFEKXIWOXEFJWNXDWJHOPQWNBNZWPWLEKXJWO WKFJWNBWJHOPQWSAEFFJIZWRKEGXKKEUODZEGKLEUFUGZEUHUIUJUKWQFFJWJWJFGULUMUPZUQZ URUSUKSAWTUCDZUTZXCUTZEWJXARIZFJIZXFKXREEFMIZXARIZFJIZXTKXREEXARIZFXARIZMIZ FJIZYCKXREYDXAMIZFJIZYGKXREYDXBMIZYIKXREYDXBXLXRXMSZXQXCVAXREEXAYKYKXRWJUOD ZXPXAUODZWJXNUGZAXPXCVBWJWTVCZVDZEEKLZXRXLYQXMEVFUISVEXQXBUODZXCXPYRAXPXAFY LXPYMYNYOVGXPVHVIVJVKXREXAYKYPVLVMXRYIYJXRYDXAFXQYDVNDXCXQEXAEVNDZXQVOSXQWJ WTWJVNDZXQXOSZAXPVAZVPZVRVKXQXAVNDXCUUCVKZXRVQZWHVSTXRYHYFFJXRXAYEYDMXRYEXA XRXAUUDVTVSWAPTXRYFYBFJXRYBYFXREFXAYSXRVOSUUEUUDWBVSPTXRYBXSFJXRYAWJXARYAWJ NXRWCSPPTXRXSXEFJXRXEXSXRXEXAWJRIZXSXQXEUUFNXCXQWJWTUUAUUBWDVKXRWJXAYTXRXOS UUDWEWIVSPTWFWG $. $}