"Source: Text/RepThy/GalRep.text";
"Line: 1962";
"Date: Fri Sep 26 12:10:12 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/RepThy/GalRep.text, line: 1962
// Example: H58E51 ()
print "Example: H58E51";
ei := GetEchoInput();
SetEchoInput(true);
K0:=pAdicField(2,20);     // K0=Q2
K:=ext<K0|2>;             // K=Q2(zeta_3)
R<x>:=PolynomialRing(K);
A:=GaloisRepresentations(x^3-102)[3];  
A;                        // 1-dim character over K
Induction(A,K0);          // Induced to K0
SetEchoInput(ei);
