let a, b be Scalar of TernaryFieldEx ; :: thesis: Tern a,(0. TernaryFieldEx ),b = b
reconsider x = a, y = b as Real ;
thus Tern a,(0. TernaryFieldEx ),b = (x * 0 ) + y by Def4
.= b ; :: thesis: verum