chore: add placeholders for mkInjectiveTheorems

We can activate them yet since the method is failing when there are
heterogeous equalities in the injectivity theorem type.
This commit is contained in:
Leonardo de Moura 2021-05-13 22:36:45 -07:00
parent 6a45799244
commit bf583f6065
2 changed files with 5 additions and 0 deletions

View file

@ -9,6 +9,7 @@ import Lean.Util.CollectLevelParams
import Lean.Util.Constructions
import Lean.Meta.CollectFVars
import Lean.Meta.SizeOf
import Lean.Meta.Injective
import Lean.Meta.IndPredBelow
import Lean.Elab.Command
import Lean.Elab.DefView
@ -519,6 +520,8 @@ def elabInductiveViews (views : Array InductiveView) : CommandElabM Unit := do
mkInductiveDecl vars views
mkSizeOfInstances view0.declName
Lean.Meta.IndPredBelow.mkBelow view0.declName
-- for view in views do
-- mkInjectiveTheorems view.declName
applyDerivingHandlers views
end Lean.Elab.Command

View file

@ -6,6 +6,7 @@ Authors: Leonardo de Moura
import Lean.Parser.Command
import Lean.Meta.Closure
import Lean.Meta.SizeOf
import Lean.Meta.Injective
import Lean.Elab.Command
import Lean.Elab.DeclModifiers
import Lean.Elab.DeclUtil
@ -581,6 +582,7 @@ def elabStructure (modifiers : Modifiers) (stx : Syntax) : CommandElabM Unit :=
}
unless isClass do
mkSizeOfInstances declName
-- mkInjectiveTheorems declName
return declName
derivingClassViews.forM fun view => view.applyHandlers #[declName]