(* ::Package:: *)

(************************************************************************)
(* This file was generated automatically by the Mathematica front end.  *)
(* It contains Initialization cells from a Notebook file, which         *)
(* typically will have the same name as this file except ending in      *)
(* ".nb" instead of ".m".                                               *)
(*                                                                      *)
(* This file is intended to be loaded into the Mathematica kernel using *)
(* the package loading commands Get or Needs.  Doing so is equivalent   *)
(* to using the Evaluate Initialization Cells menu command in the front *)
(* end.                                                                 *)
(*                                                                      *)
(* DO NOT EDIT THIS FILE.  This entire file is regenerated              *)
(* automatically each time the parent Notebook file is saved in the     *)
(* Mathematica front end.  Any changes you make to this file will be    *)
(* overwritten.                                                         *)
(************************************************************************)



DistinctQ[is___] := (Sort[{is}]===Union[{is}]);
expr_ // Ad[t_. a[i_,j_]] := Expand[expr /. {
a[k_,j] /; DistinctQ[i,j,k] :> E^(-t Subscript[b, i]) a[k,j]+Subscript[b, k]/Subscript[b, i] (1-E^(-t Subscript[b, i]))a[i,j],
a[j,k_] /; DistinctQ[i,j,k] :> E^(t Subscript[b, i]) a[j,k]+Subscript[b, j]/Subscript[b, i] (1-E^(t Subscript[b, i]))a[i,k],
a[k_,i] /; DistinctQ[i,j,k]:> a[k,i] + (1-E^(-t Subscript[b, i]))a[k,j] + Subscript[b, k]/Subscript[b, i] (E^(-t Subscript[b, i])-1)a[i,j],
a[j,i] :> E^(t Subscript[b, i]) a[j,i] + Subscript[b, j]/Subscript[b, i] (1-E^(t Subscript[b, i]))a[i,j],
a[k_,l_] /; DistinctQ[i,j,k,l] :> a[k,l],
a[i,k_] :> a[i,k],
a[k_,k_] :> a[k,k],
a[k_,l_] :> TBD[a[i,j],a[k,l]]
}]



