cmdIsEnsem cmd = case cmdCore cmd of
                  EnsemCore {} -> True
                  _        -> False
cmdIsEnsem cmd = case cmdCore cmd of
                  EnsemCore {} -> True
                  _        -> False
cmdIsEnsem cmd = case cmdCore cmd of
                  EnsemCore {} -> True
                  _        -> False