Skip to content

Commit 96b80c9

Browse files
committed
Fix script due to misclassification of implicit arg as potential typeclass instance
1 parent 65f3a82 commit 96b80c9

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

erasure-plugin/theories/ErasureCorrectness.v

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -782,11 +782,11 @@ Section ErasureFunction.
782782
set (eqdecls := (fun Σ => _)) at 9. clearbody eqdecls.
783783
set (deps := term_global_deps _).
784784
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].
786786
rewrite /erase_global_fast. erewrite eq. clear eq nin.
787787
set (eg := erase_global_deps _ _ _ _ _ _).
788788

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.
790790
{ eapply Kernames.KernameSet.subset_spec. rewrite /deps -/env'. cbn [fst snd]. apply Kernames.KernameSetProp.subset_refl. }
791791
{ cbn => ? -> //. }
792792
destruct H as [v'' [ervv'' [ev]]].

0 commit comments

Comments
 (0)