"Source: Text/Commut/GB.text";
"Line: 2989";
"Date: Mon Jun 27 11:39:56 2022";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Commut/GB.text, line: 2989
// Example: H112E15 ()
print "Example: H112E15";
ei := GetEchoInput();
SetEchoInput(true);
// no-test
P<a,b,c,d,e> := BooleanPolynomialRing(5, "grevlex");
B := [a*b + c*d + 1, a*c*e + d*e, a*b*e + c*e, b*c + c*d*e + 1];
l, S := SAT(B);
l;
assert $1;
S;
Universe(S);
[Evaluate(f, S): f in B];
l, S2 := SAT(B: Exclude := [S]);
l;
assert $1;
S2;
[Evaluate(f, S2): f in B];
l, S3 := SAT(B: Exclude := [S, S2]);
l;
assert not $1;
SetEchoInput(ei);
