Goal:
  
  ============================
   (forall (A : Type) (R : ReflectEq A) (x y : A),
    let filtered_var := x == y in true = filtered_var -> x = y)


DEBUG:Going to execute:
simpl in *; Tactics.program_simplify; CoreTactics.equations_simpl