gammasim={a___·γ[up[c_]]·γ[up[d_]]·b___vec[e_,c_]vec[e_,d_](-SP[e])a·b,g[a_,b_]vec[c_,up[b_]]vec[c,a],g[a_,up[b_]]vec[c_,b_]vec[c,a],g[a_,up[b_]]g[c_,b_]g[c,a],g[dd_,up[b_]]c___·γ[b_]·a___c·γ[dd]·a,g[dd_,b_]c___·γ[up[b_]]·a___c·γ[dd]·a,vec[ka_,b_]vec[c_,up[b_]]-SP[ka,c],g[ao_,up[ao_]]->4}