metamath/valid/mathd-numbertheory-13.mm (14 lines of code) (raw):
$(
@{
mathd-numbertheory-13.0 @e |- ( ph -> U e. NN ) $@
mathd-numbertheory-13.1 @e |- ( ph -> V e. NN ) $@
mathd-numbertheory-13.2 @e |- ( ph -> ; ; 1 0 0 || ( ( ; 1 4 x. U ) - ; 4 6 ) ) $@
mathd-numbertheory-13.3 @e |- ( ph -> ; ; 1 0 0 || ( ( ; 1 4 x. V ) - ; 4 6 ) ) $@
mathd-numbertheory-13.4 @e |- ( ph -> U < ; 5 0 ) $@
mathd-numbertheory-13.5 @e |- ( ph -> V < ; ; 1 0 0 ) $@
mathd-numbertheory-13.6 @e |- ( ph -> ; 5 0 < V ) $@
@( (Contributed by Kunhao Zheng, 4-May-2021.) @)
mathd-numbertheory-13 @p |- ( ph -> ( ( U + V ) / 2 ) = ; 6 4 ) @=
? @.
@}
$)