theorem Th26:
  f.i "/\" f.(i => j) [= f.j
proof
  i "/\" (i => j) [= j by FILTER_0:def 7;
  then f.(i "/\" (i => j)) [= f.j by Th4;
  hence thesis by D2;
end;
