fact: Definition EQ_tm := fun p => let (w1, w2) := decode_pair p in let M1 := decode_mach w1 in let M2 := decode_mach w2 in forall i, Run (Call M1 i) true <-> Run (Call M2 i) true.
imports: Coq.Setoids.Setoid Turing.Turing Turing.LangDec Turing.LangRed