reserve Al for QC-alphabet;
reserve i,j,k for Nat,
  A,D for non empty set;
reserve f1,f2 for Element of Funcs(Valuations_in(Al,A),BOOLEAN),
  x,x1,y for bound_QC-variable of Al,
  v,v1 for Element of Valuations_in(Al,A);

theorem Th2:
  for p being Element of Funcs(Valuations_in(Al,A),BOOLEAN) holds
FOR_ALL(x,p).v = FALSE iff ex v1 st p.v1 = FALSE & for y st x <> y holds
v1.y =
  v.y
proof
  let p be Element of Funcs(Valuations_in(Al,A),BOOLEAN);
A1: now
    assume ex v1 st p.v1 = FALSE & for y st x <> y holds v1.y = v.y;
    then
    FALSE in {p.v99 where v99 is Element of Valuations_in(Al,A): for y st x <>
    y holds v99.y = v.y};
    then ALL{p.v99 where v99 is Element of Valuations_in(Al,A): for y st x <> y
    holds v99.y = v.y} = FALSE by MARGREL1:17;
    hence FOR_ALL(x,p).v = FALSE by Def2;
  end;
  now
    assume FOR_ALL(x,p).v = FALSE;
    then ALL{p.v99 where v99 is Element of Valuations_in(Al,A): for y st x <> y
    holds v99.y = v.y} = FALSE by Def2;
    then
    FALSE in {p.v99 where v99 is Element of Valuations_in(Al,A): for y st x <>
    y holds v99.y = v.y} by MARGREL1:17;
    hence ex v1 st p.v1 = FALSE & for y st x <> y holds v1.y = v.y;
  end;
  hence thesis by A1;
end;
