∀g:GrpSig. ∀a:Atom{g}.  Atomic(a)
{ Unfold `matomic` 0 
THEN ((UnivCD) THENA Auto) }
1. g : GrpSig@i'
2. a : Atom{g}@i
⊢ (¬(g-unit(a))) ∧ (¬Reducible(a))