Clean up unnecessary premise

MetaCoq · Nov 5, 2020 · b644e64 · b644e64
1 parent b5f35d5
commit b644e64
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 14 deletions.
diff --git a/erasure/_PluginProject.in b/erasure/_PluginProject.in
@@ -81,8 +81,6 @@ src/pCUICChecker.ml
 src/pCUICChecker.mli
 src/pCUICPretty.mli
 src/pCUICPretty.ml
-#src/pCUICSafeLemmata.mli
-#src/pCUICSafeLemmata.ml
 src/templateToPCUIC.mli
 src/templateToPCUIC.ml
 

diff --git a/pcuic/theories/PCUICNormal.v b/pcuic/theories/PCUICNormal.v
@@ -1019,11 +1019,10 @@ Hint Resolve whnf_red_red : pcuic.
 
 Lemma whnf_red_mkApps Σ Γ hd hd' args args' :
   whnf_red Σ Γ hd hd' ->
-  red Σ Γ hd hd' ->
   All2 (red Σ Γ) args args' ->
   whnf_red Σ Γ (mkApps hd args) (mkApps hd' args').
 Proof.
-  intros shape r ra.
+  intros r ra.
   induction ra using All2_rect_rev; auto.
   rewrite <- !mkApps_nested.
   cbn.
@@ -1188,15 +1187,13 @@ Proof.
       cbn.
       intros ? ? (?&[= -> -> ->]).
       auto.
-    + now apply red1_red, fix_red_ty.
     + apply All2_same; auto.
   - apply whnf_red_mkApps; eauto.
     + constructor.
       eapply OnOne2_All2; eauto.
       cbn.
       intros ? ? (?&[= -> -> ->]).
       auto.
-    + now apply red1_red, fix_red_body.
     + apply All2_same; auto.
   - constructor; auto.
     apply All2_same; auto.
@@ -1233,16 +1230,14 @@ Proof.
       constructor.
       apply All2_same; auto.
     + apply whnf_red_mkApps.
-      3: apply All2_same; auto.
-      2: apply red1_red, fix_red_ty; auto.
+      2: apply All2_same; auto.
       constructor.
       eapply OnOne2_All2; eauto.
       cbn.
       intros ? ? (?&[= -> -> ->]).
       auto.
     + apply whnf_red_mkApps.
-      3: apply All2_same; auto.
-      2: apply red1_red, fix_red_body; auto.
+      2: apply All2_same; auto.
       constructor.
       eapply OnOne2_All2; eauto.
       cbn.
@@ -1255,16 +1250,14 @@ Proof.
       constructor.
       apply All2_same; auto.
     + apply whnf_red_mkApps.
-      3: apply All2_same; auto.
-      2: apply red1_red, cofix_red_ty; auto.
+      2: apply All2_same; auto.
       constructor.
       eapply OnOne2_All2; eauto.
       cbn.
       intros ? ? (?&[= -> -> ->]).
       auto.
     + apply whnf_red_mkApps.
-      3: apply All2_same; auto.
-      2: apply red1_red, cofix_red_body; auto.
+      2: apply All2_same; auto.
       constructor.
       eapply OnOne2_All2; eauto.
       cbn.