1gap> START_TEST("print");
2gap> LoadPackage("crisp", "", false);
3true
4gap> CRISP_Read("tst/samples.g");
5gap>
6gap> if PRINT_METHODS then
7>     TraceMethods(PrintObj, ViewObj);
8> fi;
9gap>
10gap> old := fail;
11fail
12gap> cl := classes();
13[ [2,5]-grps by boundary, [2,5]-grps by locdef, [2,5]-grps by membersip,
14  [2,5]-grps by res, [2,5]-grps by rad, [2,5]-grps by inj, [2,5]-grps by proj
15 ]
16gap> for i in [1..Length(cl)] do
17>     View(cl[i]);
18>     Print("\n",cl[i], "\n");
19>     for j in [i+1..Length(cl)] do
20>         I := Intersection(cl[i], cl[j]);
21>         View(I);
22>         Print("\n", I, "\n");
23>     od;
24> od;
25[2,5]-grps by boundary
26[2,5]-grps by boundary
27Intersection([ [2,5]-grps by boundary, [2,5]-grps by locdef ])
28Intersection([ [2,5]-grps by boundary, [2,5]-grps by locdef ])
29Intersection([ [2,5]-grps by boundary, [2,5]-grps by membersip ])
30Intersection([ [2,5]-grps by boundary, [2,5]-grps by membersip ])
31Intersection([ [2,5]-grps by boundary, [2,5]-grps by res ])
32Intersection([ [2,5]-grps by boundary, [2,5]-grps by res ])
33Intersection([ [2,5]-grps by boundary, [2,5]-grps by rad ])
34Intersection([ [2,5]-grps by boundary, [2,5]-grps by rad ])
35Intersection([ [2,5]-grps by boundary, [2,5]-grps by inj ])
36Intersection([ [2,5]-grps by boundary, [2,5]-grps by inj ])
37Intersection([ [2,5]-grps by boundary, [2,5]-grps by proj ])
38Intersection([ [2,5]-grps by boundary, [2,5]-grps by proj ])
39[2,5]-grps by locdef
40[2,5]-grps by locdef
41Intersection([ [2,5]-grps by locdef, [2,5]-grps by membersip ])
42Intersection([ [2,5]-grps by locdef, [2,5]-grps by membersip ])
43Intersection([ [2,5]-grps by locdef, [2,5]-grps by res ])
44Intersection([ [2,5]-grps by locdef, [2,5]-grps by res ])
45Intersection([ [2,5]-grps by locdef, [2,5]-grps by rad ])
46Intersection([ [2,5]-grps by locdef, [2,5]-grps by rad ])
47Intersection([ [2,5]-grps by locdef, [2,5]-grps by inj ])
48Intersection([ [2,5]-grps by locdef, [2,5]-grps by inj ])
49Intersection([ [2,5]-grps by locdef, [2,5]-grps by proj ])
50Intersection([ [2,5]-grps by locdef, [2,5]-grps by proj ])
51[2,5]-grps by membersip
52[2,5]-grps by membersip
53Intersection([ [2,5]-grps by membersip, [2,5]-grps by res ])
54Intersection([ [2,5]-grps by membersip, [2,5]-grps by res ])
55Intersection([ [2,5]-grps by membersip, [2,5]-grps by rad ])
56Intersection([ [2,5]-grps by membersip, [2,5]-grps by rad ])
57Intersection([ [2,5]-grps by membersip, [2,5]-grps by inj ])
58Intersection([ [2,5]-grps by membersip, [2,5]-grps by inj ])
59Intersection([ [2,5]-grps by membersip, [2,5]-grps by proj ])
60Intersection([ [2,5]-grps by membersip, [2,5]-grps by proj ])
61[2,5]-grps by res
62[2,5]-grps by res
63Intersection([ [2,5]-grps by res, [2,5]-grps by rad ])
64Intersection([ [2,5]-grps by res, [2,5]-grps by rad ])
65Intersection([ [2,5]-grps by res, [2,5]-grps by inj ])
66Intersection([ [2,5]-grps by res, [2,5]-grps by inj ])
67Intersection([ [2,5]-grps by res, [2,5]-grps by proj ])
68Intersection([ [2,5]-grps by res, [2,5]-grps by proj ])
69[2,5]-grps by rad
70[2,5]-grps by rad
71Intersection([ [2,5]-grps by rad, [2,5]-grps by inj ])
72Intersection([ [2,5]-grps by rad, [2,5]-grps by inj ])
73Intersection([ [2,5]-grps by rad, [2,5]-grps by proj ])
74Intersection([ [2,5]-grps by rad, [2,5]-grps by proj ])
75[2,5]-grps by inj
76[2,5]-grps by inj
77Intersection([ [2,5]-grps by inj, [2,5]-grps by proj ])
78Intersection([ [2,5]-grps by inj, [2,5]-grps by proj ])
79[2,5]-grps by proj
80[2,5]-grps by proj
81gap> for C in cl do
82>     SetIsOrdinaryFormation(C, true);
83> od;
84gap> for C in cl do
85>     for D in cl do
86>         P := FormationProduct(C, D);
87>         View(P);
88>         Print("\n", P, "\n");
89>     od;
90> od;
91FormationProduct([2,5]-grps by boundary, [2,5]-grps by boundary)
92FormationProduct([2,5]-grps by boundary, [2,5]-grps by boundary)
93FormationProduct([2,5]-grps by boundary, [2,5]-grps by locdef)
94FormationProduct([2,5]-grps by boundary, [2,5]-grps by locdef)
95FormationProduct([2,5]-grps by boundary, [2,5]-grps by membersip)
96FormationProduct([2,5]-grps by boundary, [2,5]-grps by membersip)
97FormationProduct([2,5]-grps by boundary, [2,5]-grps by res)
98FormationProduct([2,5]-grps by boundary, [2,5]-grps by res)
99FormationProduct([2,5]-grps by boundary, [2,5]-grps by rad)
100FormationProduct([2,5]-grps by boundary, [2,5]-grps by rad)
101FormationProduct([2,5]-grps by boundary, [2,5]-grps by inj)
102FormationProduct([2,5]-grps by boundary, [2,5]-grps by inj)
103FormationProduct([2,5]-grps by boundary, [2,5]-grps by proj)
104FormationProduct([2,5]-grps by boundary, [2,5]-grps by proj)
105FormationProduct([2,5]-grps by locdef, [2,5]-grps by boundary)
106FormationProduct([2,5]-grps by locdef, [2,5]-grps by boundary)
107FormationProduct([2,5]-grps by locdef, [2,5]-grps by locdef)
108FormationProduct([2,5]-grps by locdef, [2,5]-grps by locdef)
109FormationProduct([2,5]-grps by locdef, [2,5]-grps by membersip)
110FormationProduct([2,5]-grps by locdef, [2,5]-grps by membersip)
111FormationProduct([2,5]-grps by locdef, [2,5]-grps by res)
112FormationProduct([2,5]-grps by locdef, [2,5]-grps by res)
113FormationProduct([2,5]-grps by locdef, [2,5]-grps by rad)
114FormationProduct([2,5]-grps by locdef, [2,5]-grps by rad)
115FormationProduct([2,5]-grps by locdef, [2,5]-grps by inj)
116FormationProduct([2,5]-grps by locdef, [2,5]-grps by inj)
117FormationProduct([2,5]-grps by locdef, [2,5]-grps by proj)
118FormationProduct([2,5]-grps by locdef, [2,5]-grps by proj)
119FormationProduct([2,5]-grps by membersip, [2,5]-grps by boundary)
120FormationProduct([2,5]-grps by membersip, [2,5]-grps by boundary)
121FormationProduct([2,5]-grps by membersip, [2,5]-grps by locdef)
122FormationProduct([2,5]-grps by membersip, [2,5]-grps by locdef)
123FormationProduct([2,5]-grps by membersip, [2,5]-grps by membersip)
124FormationProduct([2,5]-grps by membersip, [2,5]-grps by membersip)
125FormationProduct([2,5]-grps by membersip, [2,5]-grps by res)
126FormationProduct([2,5]-grps by membersip, [2,5]-grps by res)
127FormationProduct([2,5]-grps by membersip, [2,5]-grps by rad)
128FormationProduct([2,5]-grps by membersip, [2,5]-grps by rad)
129FormationProduct([2,5]-grps by membersip, [2,5]-grps by inj)
130FormationProduct([2,5]-grps by membersip, [2,5]-grps by inj)
131FormationProduct([2,5]-grps by membersip, [2,5]-grps by proj)
132FormationProduct([2,5]-grps by membersip, [2,5]-grps by proj)
133FormationProduct([2,5]-grps by res, [2,5]-grps by boundary)
134FormationProduct([2,5]-grps by res, [2,5]-grps by boundary)
135FormationProduct([2,5]-grps by res, [2,5]-grps by locdef)
136FormationProduct([2,5]-grps by res, [2,5]-grps by locdef)
137FormationProduct([2,5]-grps by res, [2,5]-grps by membersip)
138FormationProduct([2,5]-grps by res, [2,5]-grps by membersip)
139FormationProduct([2,5]-grps by res, [2,5]-grps by res)
140FormationProduct([2,5]-grps by res, [2,5]-grps by res)
141FormationProduct([2,5]-grps by res, [2,5]-grps by rad)
142FormationProduct([2,5]-grps by res, [2,5]-grps by rad)
143FormationProduct([2,5]-grps by res, [2,5]-grps by inj)
144FormationProduct([2,5]-grps by res, [2,5]-grps by inj)
145FormationProduct([2,5]-grps by res, [2,5]-grps by proj)
146FormationProduct([2,5]-grps by res, [2,5]-grps by proj)
147FormationProduct([2,5]-grps by rad, [2,5]-grps by boundary)
148FormationProduct([2,5]-grps by rad, [2,5]-grps by boundary)
149FormationProduct([2,5]-grps by rad, [2,5]-grps by locdef)
150FormationProduct([2,5]-grps by rad, [2,5]-grps by locdef)
151FormationProduct([2,5]-grps by rad, [2,5]-grps by membersip)
152FormationProduct([2,5]-grps by rad, [2,5]-grps by membersip)
153FormationProduct([2,5]-grps by rad, [2,5]-grps by res)
154FormationProduct([2,5]-grps by rad, [2,5]-grps by res)
155FittingFormationProduct([2,5]-grps by rad, [2,5]-grps by rad)
156FittingFormationProduct([2,5]-grps by rad, [2,5]-grps by rad)
157FittingFormationProduct([2,5]-grps by rad, [2,5]-grps by inj)
158FittingFormationProduct([2,5]-grps by rad, [2,5]-grps by inj)
159FormationProduct([2,5]-grps by rad, [2,5]-grps by proj)
160FormationProduct([2,5]-grps by rad, [2,5]-grps by proj)
161FormationProduct([2,5]-grps by inj, [2,5]-grps by boundary)
162FormationProduct([2,5]-grps by inj, [2,5]-grps by boundary)
163FormationProduct([2,5]-grps by inj, [2,5]-grps by locdef)
164FormationProduct([2,5]-grps by inj, [2,5]-grps by locdef)
165FormationProduct([2,5]-grps by inj, [2,5]-grps by membersip)
166FormationProduct([2,5]-grps by inj, [2,5]-grps by membersip)
167FormationProduct([2,5]-grps by inj, [2,5]-grps by res)
168FormationProduct([2,5]-grps by inj, [2,5]-grps by res)
169FittingFormationProduct([2,5]-grps by inj, [2,5]-grps by rad)
170FittingFormationProduct([2,5]-grps by inj, [2,5]-grps by rad)
171FittingFormationProduct([2,5]-grps by inj, [2,5]-grps by inj)
172FittingFormationProduct([2,5]-grps by inj, [2,5]-grps by inj)
173FormationProduct([2,5]-grps by inj, [2,5]-grps by proj)
174FormationProduct([2,5]-grps by inj, [2,5]-grps by proj)
175FormationProduct([2,5]-grps by proj, [2,5]-grps by boundary)
176FormationProduct([2,5]-grps by proj, [2,5]-grps by boundary)
177FormationProduct([2,5]-grps by proj, [2,5]-grps by locdef)
178FormationProduct([2,5]-grps by proj, [2,5]-grps by locdef)
179FormationProduct([2,5]-grps by proj, [2,5]-grps by membersip)
180FormationProduct([2,5]-grps by proj, [2,5]-grps by membersip)
181FormationProduct([2,5]-grps by proj, [2,5]-grps by res)
182FormationProduct([2,5]-grps by proj, [2,5]-grps by res)
183FormationProduct([2,5]-grps by proj, [2,5]-grps by rad)
184FormationProduct([2,5]-grps by proj, [2,5]-grps by rad)
185FormationProduct([2,5]-grps by proj, [2,5]-grps by inj)
186FormationProduct([2,5]-grps by proj, [2,5]-grps by inj)
187FormationProduct([2,5]-grps by proj, [2,5]-grps by proj)
188FormationProduct([2,5]-grps by proj, [2,5]-grps by proj)
189gap> cl := classes();
190[ [2,5]-grps by boundary, [2,5]-grps by locdef, [2,5]-grps by membersip,
191  [2,5]-grps by res, [2,5]-grps by rad, [2,5]-grps by inj, [2,5]-grps by proj
192 ]
193gap> for C in cl do
194>     SetIsFittingClass(C, true);
195> od;
196gap> for C in cl do
197>     for D in cl do
198>         P := FittingProduct(C, D);
199>         View(P);
200>         Print("\n", P, "\n");
201>     od;
202> od;
203FittingProduct([2,5]-grps by boundary, [2,5]-grps by boundary)
204FittingProduct([2,5]-grps by boundary, [2,5]-grps by boundary)
205FittingProduct([2,5]-grps by boundary, [2,5]-grps by locdef)
206FittingProduct([2,5]-grps by boundary, [2,5]-grps by locdef)
207FittingProduct([2,5]-grps by boundary, [2,5]-grps by membersip)
208FittingProduct([2,5]-grps by boundary, [2,5]-grps by membersip)
209FittingProduct([2,5]-grps by boundary, [2,5]-grps by res)
210FittingProduct([2,5]-grps by boundary, [2,5]-grps by res)
211FittingProduct([2,5]-grps by boundary, [2,5]-grps by rad)
212FittingProduct([2,5]-grps by boundary, [2,5]-grps by rad)
213FittingProduct([2,5]-grps by boundary, [2,5]-grps by inj)
214FittingProduct([2,5]-grps by boundary, [2,5]-grps by inj)
215FittingProduct([2,5]-grps by boundary, [2,5]-grps by proj)
216FittingProduct([2,5]-grps by boundary, [2,5]-grps by proj)
217FittingProduct([2,5]-grps by locdef, [2,5]-grps by boundary)
218FittingProduct([2,5]-grps by locdef, [2,5]-grps by boundary)
219FittingFormationProduct([2,5]-grps by locdef, [2,5]-grps by locdef)
220FittingFormationProduct([2,5]-grps by locdef, [2,5]-grps by locdef)
221FittingProduct([2,5]-grps by locdef, [2,5]-grps by membersip)
222FittingProduct([2,5]-grps by locdef, [2,5]-grps by membersip)
223FittingFormationProduct([2,5]-grps by locdef, [2,5]-grps by res)
224FittingFormationProduct([2,5]-grps by locdef, [2,5]-grps by res)
225FittingProduct([2,5]-grps by locdef, [2,5]-grps by rad)
226FittingProduct([2,5]-grps by locdef, [2,5]-grps by rad)
227FittingProduct([2,5]-grps by locdef, [2,5]-grps by inj)
228FittingProduct([2,5]-grps by locdef, [2,5]-grps by inj)
229FittingProduct([2,5]-grps by locdef, [2,5]-grps by proj)
230FittingProduct([2,5]-grps by locdef, [2,5]-grps by proj)
231FittingProduct([2,5]-grps by membersip, [2,5]-grps by boundary)
232FittingProduct([2,5]-grps by membersip, [2,5]-grps by boundary)
233FittingProduct([2,5]-grps by membersip, [2,5]-grps by locdef)
234FittingProduct([2,5]-grps by membersip, [2,5]-grps by locdef)
235FittingProduct([2,5]-grps by membersip, [2,5]-grps by membersip)
236FittingProduct([2,5]-grps by membersip, [2,5]-grps by membersip)
237FittingProduct([2,5]-grps by membersip, [2,5]-grps by res)
238FittingProduct([2,5]-grps by membersip, [2,5]-grps by res)
239FittingProduct([2,5]-grps by membersip, [2,5]-grps by rad)
240FittingProduct([2,5]-grps by membersip, [2,5]-grps by rad)
241FittingProduct([2,5]-grps by membersip, [2,5]-grps by inj)
242FittingProduct([2,5]-grps by membersip, [2,5]-grps by inj)
243FittingProduct([2,5]-grps by membersip, [2,5]-grps by proj)
244FittingProduct([2,5]-grps by membersip, [2,5]-grps by proj)
245FittingProduct([2,5]-grps by res, [2,5]-grps by boundary)
246FittingProduct([2,5]-grps by res, [2,5]-grps by boundary)
247FittingFormationProduct([2,5]-grps by res, [2,5]-grps by locdef)
248FittingFormationProduct([2,5]-grps by res, [2,5]-grps by locdef)
249FittingProduct([2,5]-grps by res, [2,5]-grps by membersip)
250FittingProduct([2,5]-grps by res, [2,5]-grps by membersip)
251FittingFormationProduct([2,5]-grps by res, [2,5]-grps by res)
252FittingFormationProduct([2,5]-grps by res, [2,5]-grps by res)
253FittingProduct([2,5]-grps by res, [2,5]-grps by rad)
254FittingProduct([2,5]-grps by res, [2,5]-grps by rad)
255FittingProduct([2,5]-grps by res, [2,5]-grps by inj)
256FittingProduct([2,5]-grps by res, [2,5]-grps by inj)
257FittingProduct([2,5]-grps by res, [2,5]-grps by proj)
258FittingProduct([2,5]-grps by res, [2,5]-grps by proj)
259FittingProduct([2,5]-grps by rad, [2,5]-grps by boundary)
260FittingProduct([2,5]-grps by rad, [2,5]-grps by boundary)
261FittingProduct([2,5]-grps by rad, [2,5]-grps by locdef)
262FittingProduct([2,5]-grps by rad, [2,5]-grps by locdef)
263FittingProduct([2,5]-grps by rad, [2,5]-grps by membersip)
264FittingProduct([2,5]-grps by rad, [2,5]-grps by membersip)
265FittingProduct([2,5]-grps by rad, [2,5]-grps by res)
266FittingProduct([2,5]-grps by rad, [2,5]-grps by res)
267FittingProduct([2,5]-grps by rad, [2,5]-grps by rad)
268FittingProduct([2,5]-grps by rad, [2,5]-grps by rad)
269FittingProduct([2,5]-grps by rad, [2,5]-grps by inj)
270FittingProduct([2,5]-grps by rad, [2,5]-grps by inj)
271FittingProduct([2,5]-grps by rad, [2,5]-grps by proj)
272FittingProduct([2,5]-grps by rad, [2,5]-grps by proj)
273FittingProduct([2,5]-grps by inj, [2,5]-grps by boundary)
274FittingProduct([2,5]-grps by inj, [2,5]-grps by boundary)
275FittingProduct([2,5]-grps by inj, [2,5]-grps by locdef)
276FittingProduct([2,5]-grps by inj, [2,5]-grps by locdef)
277FittingProduct([2,5]-grps by inj, [2,5]-grps by membersip)
278FittingProduct([2,5]-grps by inj, [2,5]-grps by membersip)
279FittingProduct([2,5]-grps by inj, [2,5]-grps by res)
280FittingProduct([2,5]-grps by inj, [2,5]-grps by res)
281FittingProduct([2,5]-grps by inj, [2,5]-grps by rad)
282FittingProduct([2,5]-grps by inj, [2,5]-grps by rad)
283FittingProduct([2,5]-grps by inj, [2,5]-grps by inj)
284FittingProduct([2,5]-grps by inj, [2,5]-grps by inj)
285FittingProduct([2,5]-grps by inj, [2,5]-grps by proj)
286FittingProduct([2,5]-grps by inj, [2,5]-grps by proj)
287FittingProduct([2,5]-grps by proj, [2,5]-grps by boundary)
288FittingProduct([2,5]-grps by proj, [2,5]-grps by boundary)
289FittingProduct([2,5]-grps by proj, [2,5]-grps by locdef)
290FittingProduct([2,5]-grps by proj, [2,5]-grps by locdef)
291FittingProduct([2,5]-grps by proj, [2,5]-grps by membersip)
292FittingProduct([2,5]-grps by proj, [2,5]-grps by membersip)
293FittingProduct([2,5]-grps by proj, [2,5]-grps by res)
294FittingProduct([2,5]-grps by proj, [2,5]-grps by res)
295FittingProduct([2,5]-grps by proj, [2,5]-grps by rad)
296FittingProduct([2,5]-grps by proj, [2,5]-grps by rad)
297FittingProduct([2,5]-grps by proj, [2,5]-grps by inj)
298FittingProduct([2,5]-grps by proj, [2,5]-grps by inj)
299FittingProduct([2,5]-grps by proj, [2,5]-grps by proj)
300FittingProduct([2,5]-grps by proj, [2,5]-grps by proj)
301gap>
302gap> if PRINT_METHODS then
303>     UnTraceMethods(PrintObj, ViewObj);
304> fi;
305gap> STOP_TEST("print", 950000);
306print
307GAP4stones: 0
308gap>
309gap>
310gap> ############################################################################
311gap> ##
312gap> #E
313gap> ##
314gap>
315