set m = Depth phi;
set psi = <*l*> ^ phi;
set M = Depth (<*l*> ^ phi);
reconsider phii = phi as Depth phi -wff string of S by Def30;
<*l*> ^ phii is (Depth phi) + 1 -wff ;
hence for b1 being string of S st b1 = <*l*> ^ phi holds
b1 is 1 + (Depth phi) -wff ; :: thesis: verum