max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore: cleanup

Browse source
This commit is contained in:
Leonardo de Moura 2020-07-22 17:36:38 -07:00
parent ff6807f561
commit 3ec925ec64
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Lean/Elab/Structure.lean
View file

@ -323,7 +323,6 @@ let r : Level := r.getLevelOffset;
match r with
| Level.mvar mvarId _ => do
us ← collectUniversesFromFields ref r rOffset fieldInfos;
_root_.dbgTrace ("us: " ++ toString us) fun _ => do
let rNew := Level.mkNaryMax us.toList;
Term.assignLevelMVar mvarId rNew;
Term.instantiateMVars ref type
@ -361,8 +360,10 @@ withFields view.fields 0 fieldInfos fun fieldInfos => do
match sortDeclLevelParams view.scopeLevelNames view.allUserLevelNames usedLevelNames with
| Except.error msg => Term.throwError ref msg
| Except.ok levelParams => do
structType ← Term.mkForall ref view.params type;
structType ← Term.mkForall ref scopeVars structType;
-- TODO
Term.throwError view.ref ("WIP " ++ toString levelParams)
Term.throwError view.ref ("WIP " ++ toString levelParams ++ " " ++ structType)
/-
parser! (structureTk <|> classTk) >> declId >> many Term.bracketedBinder >> optional «extends» >> Term.optType >> " := " >> optional structCtor >> structFields