∀a:|<ℤ+,*>|. Dec(Reducible(a))
{ ((D 0 THENM 
RWH (LemmaC `mreducible_elim`) 0) THENA Auto) }
1. a : |<ℤ+,*>|
⊢ Dec(∃b:|<ℤ+,*>|. ((¬(<ℤ+,*>-unit(b))) ∧ (b p| a)))