"Source: Text/RepThy/ArtRep.text";
"Line: 602";
"Date: Tue Jul  3 23:00:01 2018";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/RepThy/ArtRep.text, line: 602
// Example: H47E7 ()
print "Example: H47E7";
ei := GetEchoInput();
SetEchoInput(true);
K1 := QuadraticField(2);
triv1, sign1 := Explode(ArtinRepresentations(K1));
K2 := QuadraticField(3);
triv2, sign2 := Explode(ArtinRepresentations(K2));
twist := sign1*sign2;
Field(twist);
sign3 := Minimize(twist);
sign3;
sign1*sign2*sign3 eq triv1;
assert $1;
SetEchoInput(ei);
