let n be Nat; :: thesis: ( 23 divides n iff 23 divides (value ((mid ((digits (n,10)),2,(len (digits (n,10))))),10)) + (7 * ((digits (n,10)) . 0)) )
reconsider p = 23 as Prime by NAT_4:30;
A1: (10 * 7) - 1 = p * 3 ;
p,10 are_coprime by EULER_1:2;
hence ( 23 divides n iff 23 divides (value ((mid ((digits (n,10)),2,(len (digits (n,10))))),10)) + (7 * ((digits (n,10)) . 0)) ) by Th38, A1; :: thesis: verum