From Undecidability.L Require Import Util.L_facts.
From Undecidability.L.Tactics Require Import Lproc Reflection.
(* *** Lbeta: symbolic beta reduction *)
(* This module procides tactics to simlify L-term w.r.t beta reduction in L. It does so by the reflective tactic simplify_L' using the module Reflextion. *)
intros R H. now rewrite R.
Defined.
Ltac addToList a l := AddFvTail a l.
Ltac has_no_evar s := try (has_evar s;fail 1).
Ltac reflexivity' :=
match goal with
| |- ?G => has_no_evar G;reflexivity
end.

Lemma evalIn_refl n s : proc s -> s ⇓(<=n) s.