let n be Nat; :: thesis: ( 23 divides n iff 23 divides (value (((digits (n,10)) /^ 1),10)) + (7 * ((digits (n,10)) . 0)) )
(digits (n,10)) /^ 1 = mid ((digits (n,10)),2,(len (digits (n,10)))) by Th3;
hence ( 23 divides n iff 23 divides (value (((digits (n,10)) /^ 1),10)) + (7 * ((digits (n,10)) . 0)) ) by Th50; :: thesis: verum