diff options
Diffstat (limited to 'src/algebra/triset.spad.pamphlet')
-rw-r--r-- | src/algebra/triset.spad.pamphlet | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/algebra/triset.spad.pamphlet b/src/algebra/triset.spad.pamphlet index e86987ca..0d4f93ca 100644 --- a/src/algebra/triset.spad.pamphlet +++ b/src/algebra/triset.spad.pamphlet @@ -2279,6 +2279,7 @@ PolynomialSetUtilitiesPackage (R,E,V,P) : Exports == Implementation where rec := roughBasicSet(lp) contradiction := (rec case "failed")@B finished : B := false + rs: LP while (not finished) and (not contradiction) repeat bs := (rec::RBT).bas rs := (rec::RBT).top |