
theorem Th13:
  for A being non empty set for L being lower-bounded LATTICE for
  d be BiFunction of A,L for q be Element of [:A,A,the carrier of L,the carrier
  of L:] holds d c= new_bi_fun2(d,q)
proof
  let A be non empty set;
  let L be lower-bounded LATTICE;
  let d be BiFunction of A,L;
  let q be Element of [:A,A,the carrier of L,the carrier of L:];
  set g = new_bi_fun2(d,q);
A1: A c= new_set2 A by XBOOLE_1:7;
A2: for z being object st z in dom d holds d.z = g.z
  proof
    let z be object;
    assume
A3: z in dom d;
    then consider x,y being object such that
A4: [x,y] = z by RELAT_1:def 1;
    reconsider x9 = x, y9 = y as Element of A by A3,A4,ZFMISC_1:87;
    d.[x,y] = d.(x9,y9) .= g.(x9,y9) by Def4
      .= g.[x,y];
    hence thesis by A4;
  end;
  dom d = [:A,A:] & dom g = [:new_set2 A,new_set2 A:] by FUNCT_2:def 1;
  then dom d c= dom g by A1,ZFMISC_1:96;
  hence thesis by A2,GRFUNC_1:2;
end;
