allrules12=EnumerateWolframModelRules[{{1,2}}{{2,2}}];
In[]:=
Select[allrules12,!ConnectedHypergraphQ[WolframModel[#,{{0,0}},4,"FinalState"]]&]
Out[]=
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[{ConnectedHypergraphQ[WolframModel[#,{{0,0}},4,"FinalState"]],WolframModel[#,{{0,0}},4,"CausalGraph"],MultiwaySystem[WolframModel[#],{{0,0}},4,"StatesGraphStructure"]}#&,EnumerateWolframModelRules[{{1,2}}{{2,2}}]]]
Out[]=
{{{1,1}}{{1,1},{1,1}},{{1,2}}{{1,1},{2,3}}}
In[]:=
XYifyRule[{{1,1}}{{1,1},{1,1}}]
Out[]=
{{x,x}}{{x,x},{x,x}}
In[]:=
WolframModel[{{1,1}}{{1,1},{1,1}},Automatic,5,"StatesPlotsList"]
Out[]=
In[]:=
WolframModel[{{1,2}}{{1,1},{1,3}},Automatic,5,"StatesPlotsList"]
Out[]=
In[]:=
WolframModel[{{1,2}}{{1,2},{2,3}},Automatic,5,"StatesPlotsList"]
Out[]=
{{{1,1}}{{1,1},{1,1}},{{1,2}}{{1,1},{2,3}},{{1,2}}{{1,1},{1,3}},{{1,2}}{{1,2},{2,3}}}