Ltac AddSC_enrich :=
  progress autorewrite with AddSC; intros; unfold OpaqueProp at 1.Ltac AddAX_enrich :=
  progress autorewrite with AddAX; intros; unfold OpaqueProp at 1.

Lemma finish_enrich: forall (G: Prop), G -> OpaqueProp (Typeclass_Rewrite nil -> OpaqueProp G).