// MV ..
// -------------------------------------------------------------------------------------------------------------------------------------------------   
:: CDynPattern def_ptr =
// -------------------------------------------------------------------------------------------------------------------------------------------------   
	{ dtpRhs					:: !CExpr def_ptr	
	}
instance DummyValue (CDynPattern def_ptr) | DummyValue def_ptr
	where DummyValue = {dtpRhs = DummyValue}		
// .. MV