From 2318128f6d5918a67eaf7c65f323bac3cd2dc1a8 Mon Sep 17 00:00:00 2001
From: kalmarek <kalmar@amu.edu.pl>
Date: Mon, 13 Aug 2018 19:27:43 +0200
Subject: [PATCH] add supp, rename augmentation -> aug

---
 src/GroupRings.jl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/GroupRings.jl b/src/GroupRings.jl
index 830dacf..b5b8316 100644
--- a/src/GroupRings.jl
+++ b/src/GroupRings.jl
@@ -66,7 +66,7 @@ mutable struct GroupRingElem{T, A<:AbstractVector, GR<:GroupRing} <: RingElem
    end
 end
 
-export GroupRing, GroupRingElem, complete!, create_pm, star
+export GroupRing, GroupRingElem, complete!, create_pm, star, aug, supp
 
 ###############################################################################
 #
@@ -509,7 +509,9 @@ length(X::GroupRingElem) = countnz(X.coeffs)
 
 norm(X::GroupRingElem, p=2) = norm(X.coeffs, p)
 
-augmentation(X::GroupRingElem) = sum(X.coeffs)
+aug(X::GroupRingElem) = sum(X.coeffs)
+
+supp(X::GroupRingElem) = parent(X).basis[findn(X.coeffs)]
 
 function rationalize{T<:Integer, S<:Integer}(::Type{T}, X::GroupRingElem{S})
    return convert(Rational{T}, X)