Definition weight_typenv (e: typenv) : nat := length e.(te_equ).Definition typassign := positive -> T.t.

Lemma solve_rec_false: forall r1 r2 q e changed e', solve_rec e changed q = OK(e', false) -> changed = false /\ (In (r1, r2) q -> makeassign e r1 = makeassign e r2).