Initialization

SetDirectory[NotebookDirectory[]];
gl=Tuples[{0,1},2];
ig=AssociationThread[Range[4]->gl];
gi=AssociationThread[gl->Range[4]];
CirclePlus[a_List,b_List]:=Mod[a+b,2];
multitab=Table[gi[a⊕b],{a,gl},{b,gl}];
Wedge[a_,b_]:=multitab[[a,b]];
Wedge[a_,b_,c___]:=Wedge[Wedge[a,b],c];
Abstract[m_]:=Block[{dim=Length@m,σind,σbas,σs},
σind=Tuples[Range[0,3],Log[2,dim]];
σs[x_]:=PauliMatrix[x];
σs[x__]:=KroneckerProduct@@Map[PauliMatrix,{x}];
Sum[σ@@σi (1/dim)Tr[(σs@@σi)\[HermitianConjugate].m],{σi,σind}]
]

SetDirectory[NotebookDirectory[]];
allsols8=Import["Allsols8.mx"];
namlis={{"ψL=(Subscript[F, D]^ghD)","uL=(Subscript[F, D]^gND)","vL=(Subscript[F, D]^NgD)","wL=(Subscript[F, D]^NND)"},{"ψR=(Subscript[F, D]^Dgh)","uR=(Subscript[F, D]^DNg)","vR=(Subscript[F, D]^DgN)","wR=(Subscript[F, D]^DNN)"},{"ψI=(Subscript[F, D]^gDh)","uI=(Subscript[F, D]^NDg)","vI=(Subscript[F, D]^gDN)","wI=(Subscript[F, D]^NDN)"},
{"ϕR=(Subscript[F, h]^DDg)","uiir=(Subscript[F, N]^DDg)","viir=(Subscript[F, g]^DDN)","wiir=(Subscript[F, N]^DDN)"},{"ϕL=(Subscript[F, h]^gDD)","uiil=(Subscript[F, N]^gDD)","viil=(Subscript[F, g]^NDD)","wiil=(Subscript[F, N]^NDD)"},{"ϕB=(Subscript[F, h]^DgD)","uiib=(Subscript[F, N]^DgD)","viib=(Subscript[F, g]^DND)","wiib=(Subscript[F, N]^DND)"},{"θ4=(Subscript[F, D, gh]^DDD)","u4=(Subscript[F, D, gN]^DDD)","v4=(Subscript[F, D, Ng]^DDD)","w4=(Subscript[F, D, NN]^DDD)"}};
solmap=AssociationThread[Tuples[{1,2},3]->{{2,1},{2,2},{1,2},{1,1},{3,2},{3,1},{4,1},{4,2}}];
EZ2RepH8[is_,κs_,ϵs_]:=Simplify@Block[{sol},
sol[exp_]:=exp/.allsols8[[solmap[{is,κs,ϵs}][[1]],solmap[{is,κs,ϵs}][[2]]]];
Grid[{namlis[[1]],{MatrixForm[Table[ℱ[a,b,6,6][multitab[[a,b]],1,1][6,1,1],{a,4},{b,4}]],
Table[Abstract@Table[ℱ[a,5,6,6][5,1,μ][6,ν,1],{μ,2},{ν,2}],{a,4}],
Table[Abstract@Table[ℱ[5,a,6,6][5,1,μ][6,1,ν],{μ,2},{ν,2}],{a,4}],
Table[Abstract@Table[ℱ[5,5,6,6][a,1,1][6,μ,ν],{μ,2},{ν,2}],{a,4}]
},
namlis[[2]],{MatrixForm[Table[ℱ[6,a,b,6][6,1,1][multitab[[a,b]],1,1],{a,4},{b,4}]],
Table[Abstract@Table[ℱ[6,5,a,6][6,μ,1][5,1,ν],{μ,2},{ν,2}],{a,4}],
Table[Abstract@Table[ℱ[6,a,5,6][6,1,μ][5,1,ν],{μ,2},{ν,2}],{a,4}],
sol[ComplexExpand@Table[Abstract@Table[ℱ[6,5,5,6][6,μ,ν][a,1,1],{μ,2},{ν,2}],{a,4}]]
},namlis[[3]],{MatrixForm[Table[ℱ[a,6,b,6][6,1,1][6,1,1],{a,4},{b,4}]],
Table[Abstract@Table[ℱ[5,6,a,6][6,μ,1][6,1,ν],{μ,2},{ν,2}],{a,4}],
Table[Abstract@Table[ℱ[a,6,5,6][6,1,μ][6,ν,1],{μ,2},{ν,2}],{a,4}],
Table[ComplexExpand[ℱ[5,6,5,6][6,μ,ν][6,ρ,θ]//sol],{μ,2},{ν,2},{ρ,2},{θ,2}]
},
namlis[[4]],{MatrixForm[Table[ℱ[6,6,a,b][a⋀b,1,1][6,1,1],{a,4},{b,4}]],
Table[Abstract@Table[ℱ[6,6,a,5][5,μ,1][6,1,ν],{μ,2},{ν,2}],{a,4}],
Table[Abstract@Table[ℱ[6,6,5,a][5,μ,1][6,ν,1],{μ,2},{ν,2}],{a,4}],
Table[Abstract@Table[ℱ[6,6,5,5][a,1,1][6,μ,ν],{μ,2},{ν,2}],{a,4}]
},
namlis[[5]],{MatrixForm[Table[ℱ[a,6,6,b][6,1,1][a⋀b,1,1],{a,4},{b,4}]],
Table[Abstract@Table[ℱ[a,6,6,5][6,1,μ][5,ν,1],{μ,2},{ν,2}],{a,4}],
Table[Abstract@Table[ℱ[5,6,6,a][6,μ,1][5,ν,1],{μ,2},{ν,2}],{a,4}],
Table[Abstract@Table[ℱ[5,6,6,5][6,μ,ν][a,1,1],{μ,2},{ν,2}],{a,4}]
},
namlis[[6]],{MatrixForm[Table[ℱ[6,a,6,b][6,1,1][6,1,1],{a,4},{b,4}]],
Table[Abstract@Table[ℱ[6,a,6,5][6,1,μ][6,1,ν],{μ,2},{ν,2}],{a,4}],
Table[Abstract@Table[ℱ[6,5,6,a][6,μ,1][6,ν,1],{μ,2},{ν,2}],{a,4}],
Table[ℱ[6,5,6,5][6,μ,ν][6,ρ,τ],{μ,2},{ν,2},{ρ,2},{τ,2}]
}
,
namlis[[7]],{MatrixForm[Table[ℱ[6,6,6,6][a,1,1][b,1,1],{a,4},{b,4}]],
Table[Abstract@Table[ℱ[6,6,6,6][a,1,1][5,μ,ν],{μ,2},{ν,2}],{a,4}],
Table[Abstract@Table[ℱ[6,6,6,6][5,μ,ν][a,1,1],{μ,2},{ν,2}],{a,4}],
Table[ℱ[6,6,6,6][5,μ,ν][5,ρ,τ],{μ,2},{ν,2},{ρ,2},{τ,2}]
}
},Dividers->All]//sol
]/.{v4[1][3]->1,v4[1][1]->1,v3[1][2]->-1/(Sqrt[2]),ϵL->1/2}

Represent data

(Subscript[ℰ, (Subscript[ℤ, 2])]^((i,(Subscript[κ, D]),(Subscript[ϵ, D])))), i=±,(Subscript[κ, D])=±,(Subscript[ϵ, D])=±

EZ2RepH8[(i=1,2),((Subscript[κ, D])=1,2),((Subscript[ϵ, D])=1,2)]

EZ2RepH8[1,1,1]