Takes one argument, behavior-model-class. The value is another model fragment class which is the superclass of all the operating mode models of mf-class.
(=> (Operating-Mode-Class-Of $X $Y) (Model-Fragment $X))