End WeakTheoryForIDomainPseudoDivision.
Hint Resolve lc_expn_scalp_neq0 : core.
End WeakIdomain.
Module CommonIdomain.
Section IDomainPseudoDivision.
Variable R : idomainType.
Implicit Type p q r d m n : {poly R}.

Lemma modp1 p : p %% 1 = 0.
Hint Resolve divp0 divp1 mod0p modp0 modp1 : core.