set L = the strict B_Lattice;
the strict B_Lattice is I_Lattice ;
hence ex b1 being Lattice st
( b1 is Heyting & b1 is strict ) ; :: thesis: verum