K<x>:=PolynomialRing(Integers());
G:=GroupOfLieType("E6",K);
b:=elt<G|<37,1>>;
c := elt<G | <37,-1>>;
c^-1 eq b;
d := elt< G | <4,3>,<38,-1>,2,3,4>;

tt1 := TorusTerm(G,6, -1);
tt2 := elt< G | Vector(K,[1,1,1,1,-1,1]) >;
tt1^-1;
tt1 eq tt2;

F<z> := FunctionField(Integers());
L:=GroupOfLieType("E6",F);
b0:=elt<L|<37,1>>;
c0 := elt<L | <37,-1>>;
c0^-1 eq b;
d0 := elt< L | <4,3>,<38,-1>,2,3,4>;

ss1 := TorusTerm(L,6, -1);
ss2 := elt< L | Vector(F,[1,1,1,1,-1,1]) >;
ss1^-1;
ss1 eq ss2;

b0 eq b;
c0 eq c;
ss1 eq tt1;
ss2 eq tt2;

