Pensieve header: OneCo, the global picture.

SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\OneCo-1604"];
<< Local.m

Global Generalities

SnG[λ_,_][k_] := λ[k];
SnG[_,ω_][ω] := ω;

E

(Subscript[E, j_,k_,t_]):=SnG[\[LeftAssociation]
j->UU[a[1,j,∞]+δaa[t,ç,∞,j,k]+δaa[((-1+(E^(-t (Subscript[b, j]))))/(Subscript[b, j])),ç,k,j,∞]+δaa[-((-1+(E^(-t (Subscript[b, j])))+t (Subscript[b, j]))/(Subscript[b, j]^2)),j,k,j,∞]],
k->UU[a[(E^(t (Subscript[b, j]))),k,∞]+a[-(((-1+(E^(t (Subscript[b, j])))) (Subscript[b, k]))/(Subscript[b, j])),j,∞]+δa[(((-1+(E^(t (Subscript[b, j]))) (1-t (Subscript[b, j]))) (Subscript[b, k]))/(Subscript[b, j]^2)),j,∞]+δa[(((1+(E^(t (Subscript[b, j]))) (-1+t (Subscript[b, j]))) (Subscript[b, k]))/(Subscript[b, j])),ç,∞]+δaa[((-1+(E^(t (Subscript[b, j]))) (1-t (Subscript[b, j])))/(Subscript[b, j])),ç,k,k,∞]+δaa[((1+(E^(t (Subscript[b, j]))) (-1+t (Subscript[b, j])))/(Subscript[b, j]^2)),j,k,k,∞]+δaa[(((Subscript[b, j])-(E^(-t (Subscript[b, j]))) (Subscript[b, j])+(Subscript[b, k])+(E^(t (Subscript[b, j]))) (-1+t (Subscript[b, j])) (Subscript[b, k]))/(Subscript[b, j]^2)),ç,k,j,∞]+δaa[(((Subscript[b, j])+(Subscript[b, k])+t (Subscript[b, j]) (Subscript[b, k])-(E^(t (Subscript[b, j]))) ((Subscript[b, j])+(Subscript[b, k])))/(Subscript[b, j]^2)),ç,∞,j,k]+δaa[(((E^(-t (Subscript[b, j]))) ((Subscript[b, j])+(E^(2 t (Subscript[b, j]))) ((Subscript[b, j])+(2-t (Subscript[b, j])) (Subscript[b, k]))-(E^(t (Subscript[b, j]))) (2 (Subscript[b, k])+(Subscript[b, j]) (2+t (Subscript[b, k])))))/(Subscript[b, j]^3)),j,k,j,∞]]\[RightAssociation],
UU@a[t,j,k]];
(Subscript[E, j_,k_]):=(Subscript[E, j,k,t]);

{(Subscript[E, 1,2,t])[1], (Subscript[E, 1,2,t])[2]} /. t->0

{D[(Subscript[E, 1,2,t])[1], t],D[(Subscript[E, 1,2,t])[2], t]}

{D[(Subscript[E, 1,2,t])[1], t]-bb[1,2][UU[a[1,1,2]], (Subscript[E, 1,2,t])[1]],
D[(Subscript[E, 1,2,t])[2], t]-bb[1,2][UU[a[1,1,2]], (Subscript[E, 1,2,t])[2]]}