In[]:=
Function[r,Graph[MultiwaySystem[r,{"A"},7,#],GraphLayout"LayeredDigraphEmbedding",AspectRatio1/2]&/@{"EvolutionCausalGraphStructure","StatesGraphStructure","CausalGraphStructure"}]/@EnumerateSubstitutionSystemRules[{12,11},2]
Out[]=
Look at causal invariant rules....
Look at causal invariant rules....