From 960c26fe3c931b555e69240c639eaed8c378dd4b Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Fri, 8 Mar 2019 00:52:52 -0500 Subject: add wf_smart_Literal_eq --- src/LanguageWf.v | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src') diff --git a/src/LanguageWf.v b/src/LanguageWf.v index da5db2944..0e4822701 100644 --- a/src/LanguageWf.v +++ b/src/LanguageWf.v @@ -1078,6 +1078,11 @@ Hint Extern 10 (Proper ?R ?x) => simple eapply (@PER_valid_r _ R); [ | | solve [ | progress rewrite in_map_iff in * | solve [ auto ] ]. Qed. + + Lemma wf_smart_Literal_eq {t v1 v2 G} + : v1 = v2 -> expr.wf G (@ident.smart_Literal var1 t v1) (@ident.smart_Literal var2 t v2). + Proof using Type. intro; subst; apply wf_smart_Literal. Qed. + Qed. End with_var2. Lemma Wf_Reify_as {t} v : expr.Wf (@GallinaReify.base.Reify_as t v). -- cgit v1.2.3