theorem Satz7p7:
  reflection(a,reflection(a,p)) = p
  proof
    Middle p,a,reflection(a,p) by DEFR;
    then Middle reflection(a,p),a,p by Satz3p2,Satz2p2;
    hence thesis by DEFR;
  end;
