File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -782,11 +782,11 @@ Section ErasureFunction.
782
782
set (eqdecls := (fun Σ => _)) at 9. clearbody eqdecls.
783
783
set (deps := term_global_deps _).
784
784
set (nin := (fun (n : nat) => _)). clearbody nin.
785
- epose proof (@erase_global_deps_fast_erase_global_deps deps optimized_abstract_env_impl Σ' (PCUICAst.PCUICEnvironment.declarations Σ) nin) as [nin2 eq].
785
+ epose proof (@erase_global_deps_fast_erase_global_deps deps optimized_abstract_env_impl Σ' (PCUICAst.PCUICEnvironment.declarations Σ) nin _ _ ) as [nin2 eq].
786
786
rewrite /erase_global_fast. erewrite eq. clear eq nin.
787
787
set (eg := erase_global_deps _ _ _ _ _ _).
788
788
789
- unshelve epose proof (erase_correct optimized_abstract_env_impl Σ' Σ.2 _ f v _ _ deps _ _ _ eq_refl _ eq_refl _ Σ eq_refl); eauto.
789
+ unshelve epose proof (erase_correct optimized_abstract_env_impl Σ' Σ.2 _ f v _ _ deps _ eqdecls _ eq_refl _ eq_refl _ Σ eq_refl); eauto.
790
790
{ eapply Kernames.KernameSet.subset_spec. rewrite /deps -/env'. cbn [fst snd]. apply Kernames.KernameSetProp.subset_refl. }
791
791
{ cbn => ? -> //. }
792
792
destruct H as [v'' [ervv'' [ev]]].
You can’t perform that action at this time.
0 commit comments