metamath/valid/induction-sum-1oktkp1.mm (40 lines of code) (raw):

${ $d N k x $. $d k y x $. $d ph x y $. induction-sum-1oktkp1.0 $e |- ( ph -> N e. NN ) $. $( (Contributed by Stanislas Polu, 14-Oct-2020.) $) induction-sum-1oktkp1 $p |- ( ph -> sum_ k e. ( 1 ... N ) ( 1 / ( k x. ( k + 1 ) ) ) = ( N / ( N + 1 ) ) ) $= ( wcel c1 cfz co caddc cmul cdiv csu id oveq1 cc oveq2d eqtrd adantl oveq1d wceq vx vy cn cv oveq2 sumeq1d oveq12d eqeq12d csn cz fzsn ax-mp a1i ax-1cn 1z 1red cc0 cle wbr 0le1 ge0p1rpd rprecred recnd df-2 syl6eqr mulid2i eqtri c2 2cn syl6eq sumsn sylancr wa cuz cfv nnuz syl6eleq elfznn nncnd peano2nnd mulcld nnmulcld nnne0d reccld fsump1 ad2antlr nncn addcld peano2nn divcan2d 1cnd divcld eqcomd divdiv1d mulcomd mulne0d divassd adddird mulid2d mulid1d addassd adddid simpr divdird divcan5rd adantr eqtr4d nnindd mpdan ) ACUCEFC GHZFBUDZXKFIHZJHZKHZBLZCCFIHZKHZTZDAFUAUDZGHZXNBLZXSXSFIHZKHZTFFGHZXNBLZFFF IHZKHZTFUBUDZGHZXNBLZYHYHFIHZKHZTZFYKGHZXNBLZYKYKFIHZKHZTXRUAUBCXSFTZYAYEYC YGYRXTYDXNBXSFFGUEUFYRXSFYBYFKYRMXSFFINUGUHXSYHTZYAYJYCYLYSXTYIXNBXSYHFGUEU FYSXSYHYBYKKYSMXSYHFINUGUHXSYKTZYAYOYCYQYTXTYNXNBXSYKFGUEUFYTXSYKYBYPKYTMXS YKFINUGUHXSCTZYAXOYCXQUUAXTXJXNBXSCFGUEUFUUAXSCYBXPKUUAMXSCFINUGUHAYEFUIZXN BLZYGAYDUUBXNBYDUUBTZAFUJEUUDUOFUKULUMUFAFOEYGOEUUCYGTUNAYGAYFAFAUPUQFURUSA UTUMVAVBVCXNYGBFOXKFTZXMYFFKUUEXMFXLJHZYFXKFXLJNUUEUUFFVHJHZYFUUEXLVHFJUUEX LYFVHXKFFINVDVEPUUGVHYFVHVIVFVDVGVJQPVKVLQAYHUCEZVMZYMVMZYOYJFYKYPJHZKHZIHZ YQUUHYOUUMTAYMUUHXNUULBFYHUUHYHUCFVNVOUUHMVPVQUUHXKYNEZVMZXMUUOXKXLUUNXKOEU UHUUNXKXKYKVRZVSRUUOXLUUOXKUUNXKUCEUUHUUPRZVTZVSWAUUOXMUUOXKXLUUQUURWBWCWDX KYKTZXMUUKFKUUSXKYKXLYPJUUSMXKYKFINUGPWEWFUUJYQYLUULIHZUUMUUIYQUUTTYMUUIYQY HYPJHZUUKKHZUULIHZUUTUUIYQUVAFIHZUUKKHZUVCUUHYQUVETAUUHYQYHYKJHZYHFJHZIHZFI HZUUKKHZUVEUUHYQUVFYKIHZUUKKHZUVJUUHYQYKYKJHZUUKKHZUVLUUHYQYKYKUUKKHZJHZUVN UUHYQYKYKYPYKJHZKHZJHZUVPUUHYQYKYQYKKHZJHZUVSUUHUWAYQUUHYQYKUUHYKYPUUHYHFYH WGZUUHWKZWHZUUHYKFUWDUWCWHZUUHYPUUHYKYHWIZVTWCZWLUWDUUHYKUWFWCZWJWMUUHUVTUV RYKJUUHYKYPYKUWDUWEUWDUWGUWHWNPQUUHUVRUVOYKJUUHUVQUUKYKKUUHYPYKUWEUWDWOPPQU UHUVNUVPUUHYKYKUUKUWDUWDUUHYKYPUWDUWEWAUUHYKYPUWDUWEUWHUWGWPWQWMQUUHUVMUVKU UKKUUHUVMUVFFYKJHZIHUVKUUHYHFYKUWBUWCUWDWRUUHUWIYKUVFIUUHYKUWDWSPQSQUUHUVKU VIUUKKUUHUVKUVFUVGFIHZIHZUVIUUHYKUWJUVFIUUHYHUVGFIUUHUVGYHUUHYHUWBWTWMSPUUH UVIUWKUUHUVFUVGFUUHYHYKUWBUWDWAUUHYHFUWBUWCWAUWCXAWMQSQUUHUVIUVDUUKKUUHUVHU VAFIUUHUVAUVHUUHYHYKFUWBUWDUWCXBWMSSQRUUIUVAFUUKUUIYHYPUUHYHOEAUWBRZUUHYPOE AUWERZWAUUIWKUUIYKYPUUHYKOEAUWDRZUWMWAUUIUUKUUIYKYPUUIYHAUUHXCVTZUUIYKUWOVT ZWBWCXDQUUIUVBYLUULIUUIYHYKYPUWLUWNUWMUUIYKUWOWCUUIYPUWPWCXESQXFUUJYJYLUULI UUIYMXCSXGXGXHXI $. $}