diff --git a/theories/program_logic/language.v b/theories/program_logic/language.v index 5512fb3f3d09e74428ef10e4cbc200fcab596e6b..58b8cc5c7056106c7ba04879e4f97b23a3c2f9e5 100644 --- a/theories/program_logic/language.v +++ b/theories/program_logic/language.v @@ -120,7 +120,7 @@ Section language. rtc erased_step Ï1 Ï2 → ∃ n κs, nsteps n Ï1 κs Ï2. Proof. - induction 1; firstorder; eauto. + induction 1; firstorder; eauto. (* FIXME: [naive_solver eauto] should be able to handle this *) Qed. Lemma of_to_val_flip v e : of_val v = e → to_val e = Some v. @@ -171,6 +171,7 @@ Section language. t1 ≡ₚ t1' → erased_step (t1,σ1) (t2,σ2) → ∃ t2', t2 ≡ₚ t2' ∧ erased_step (t1',σ1) (t2',σ2). Proof. intros Heq [? Hs]. pose proof (step_Permutation _ _ _ _ _ _ Heq Hs). firstorder. + (* FIXME: [naive_solver] should be able to handle this *) Qed. Record pure_step (e1 e2 : expr Λ) := {