proposition: Lemma WF_Fred_mod_iso : WF (red_mod E R) <-> WF (red_mod (Frs HF E) (Frs HF R)).
proof: Proof. split; intro. apply WF_Fred_mod with (G:=G) (HG:=HG) (R':=Frs HF R) (E':=Frs HF E). apply Frs_epi. refl. apply Frs_epi. refl. hyp. apply Fred_mod_WF with (S2:=S2) (F:=F) (HF:=HF). hyp. Qed.
imports: Coq(List Morphisms Setoid) CoLoR(LogicUtil ATrs VecUtil RelUtil SN ARules SetUtil NatUtil)