theorem Th5:
  Valid(VERUM(Al),J).v = TRUE
proof
  (Valuations_in(Al,A) --> TRUE).v = TRUE by FUNCOP_1:7;
  hence thesis by Lm1;
end;
