QM_Str(# X,X,Y #) is Quantum_Mechanics-like by Def5, Lm8;
hence ex b1 being QM_Str st
( b1 is strict & b1 is Quantum_Mechanics-like ) ; :: thesis: verum