diff options
Diffstat (limited to 'src/Experiments/NewPipeline/AbstractInterpretationProofs.v')
-rw-r--r-- | src/Experiments/NewPipeline/AbstractInterpretationProofs.v | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Experiments/NewPipeline/AbstractInterpretationProofs.v b/src/Experiments/NewPipeline/AbstractInterpretationProofs.v index 1b985bda2..b50064e9c 100644 --- a/src/Experiments/NewPipeline/AbstractInterpretationProofs.v +++ b/src/Experiments/NewPipeline/AbstractInterpretationProofs.v @@ -312,6 +312,7 @@ Module Compilers. Admitted. Lemma Interp_Relax {t} (e : Expr t) + (Hwf : expr.Wf3 e) v (Hinterp : forall cast_outside_of_range, type.app_curried (expr.Interp (@ident.gen_interp cast_outside_of_range) e) v = type.app_curried (defaults.Interp e) v) @@ -396,7 +397,7 @@ Module Compilers. | progress cbv [ident.interp] | rewrite RelaxZRange.expr.Interp_Relax; eauto | erewrite !Interp_PartialEvaluateWithBounds - | solve [ eauto ] + | solve [ eauto with wf ] | progress intros ]. } { auto with wf. } Qed. |