From a4d79ff66ee96dcb545046dce024617970e099d1 Mon Sep 17 00:00:00 2001
From: Glen Whitney <gwhitney@post.harvard.edu>
Date: Thu, 19 Oct 2017 02:10:01 +0200
Subject: [PATCH] provide facility to bind element names

---
 gap/quasigroups.gd | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gap/quasigroups.gd b/gap/quasigroups.gd
index aa161a6..5a7cfbf 100644
--- a/gap/quasigroups.gd
+++ b/gap/quasigroups.gd
@@ -102,6 +102,7 @@ DeclareOperation( "LoopByCayleyTable", [ IsMatrix ] );
 DeclareOperation( "SpecifyElmNamePrefix", [ IsCollection, IsString ] );
 DeclareSynonym( "SetQuasigroupElmName", SpecifyElmNamePrefix );
 DeclareSynonym( "SetLoopElmName", SpecifyElmNamePrefix );
+DeclareOperation( "BindElmNames", IsMagma );
 DeclareAttribute( "ConstructorFromTable", IsMagma );
 DeclareOperation( "CanonicalCopy", [ IsMagma ] );