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