"Source: Text/Geometry/GrpPSL2Shim.text";
"Line: 657";
"Date: Tue Jun  7 22:27:14 2016";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/GrpPSL2Shim.text, line: 657
// Example: H140E4 ()
print "Example: H140E4";
ei := GetEchoInput();
SetEchoInput(true);
D := UnitDisc();
D;
CC<I> := ComplexField();
w := D ! ((1+I)/2);
w;
Re(w), Abs(w);
z := D ! 0;
z;
IsExact(z);
ComplexValue(z : Precision := 100);
2*z;
Type($1);
D!(z+w) eq w;
assert $1;
SetEchoInput(ei);
