fact: Hypothesis HM1' : forall s w r x, length (s::w) < S m -> fom_rels M' (inl (s::w, r)) (x##ø) <-> fom_rels M' (inl (w, r)) (fom_syms M s (x##ø)##ø).
imports: List Arith Bool Lia Eqdep_dec Undecidability.Shared.Libs.DLW.Utils(utils_tac utils_list utils_nat finite) Undecidability.Shared.Libs.DLW.Vec(pos vec) Undecidability.FOL.TRAKHTENBROT(notations utils fol_ops fo_sig fo_terms fo_logic fo_sat Sig_no_syms)