theorem
  M,v |= p => (q => p) & M |= p => (q => p)
proof
  now
    let v;
    M,v |= p implies M,v |= q => p by ZF_MODEL:18;
    hence M,v |= p => (q => p) by ZF_MODEL:18;
  end;
  hence thesis;
end;
