p <> 1 by INT_2:def 4;
hence for b1 being Integer holds
( ( a gcd p = 1 & a is_quadratic_residue_mod p implies ( b1 = LegendreSymbol (a,p) iff b1 = 1 ) ) & ( p divides a implies ( b1 = LegendreSymbol (a,p) iff b1 = 0 ) ) & ( a gcd p = 1 & a is_quadratic_non_residue_mod p implies ( b1 = LegendreSymbol (a,p) iff b1 = - 1 ) ) ) by Def3; :: thesis: verum