Local Arguments plus : simpl never.
Local Arguments mult : simpl never.
Set Default Proof Using "Type".
(* 11 + 6 * max (size x1) (size x2) for Compare *)
(* 8 + 4 * (size x1) for MoveToSymbol_L @ [|Fin0|] *)
(* 8 + 4 * (size x2) for MoveToSymbol_L @ [|Fin1|] *)
Definition CompareValues_steps {sigX X : Type} {cX : codable sigX X} (x1 x2 : X) :=
29 + 6 * max (size x1) (size x2) + 4 * (size x1) + 4 * (size x2).
Definition CompareValues_T : tRel sigX^+ 2 :=
fun tin k => exists (x1 x2 : X), tin[@Fin0] ≃ x1 /\ tin[@Fin1] ≃ x2 /\ CompareValues_steps x1 x2 <= k.

Lemma CompareValues_TerminatesIn : projT1 CompareValues ↓ CompareValues_T.