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

chore: remove weird idiom

Browse source
This commit is contained in:
Leonardo de Moura 2019-10-21 17:41:23 -07:00
parent 25e72207b9
commit a8d3803089
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/lean/typeclass_context.lean
View file

@ -41,16 +41,14 @@ eUnify (Expr.pi "foo" BinderInfo.default t₁ t₂) (Expr.pi "foo" BinderInfo.de
get >>= λ (ctx : Context) => pure $ ctx.eInstantiate t₂
def testEUnify6 : EState String Context Expr := do
(u, ctx) ← get >>= λ ctx => pure $ Context.uNewMeta.run ctx;
set ctx;
u ← EState.fromState Context.uNewMeta;
let t₁ := Expr.const "foo" [Level.zero];
let t₂ := Expr.const "foo" [u];
eUnify t₁ t₂;
get >>= λ (ctx : Context) => pure $ ctx.eInstantiate t₂
def testEUnify7 : EState String Context Expr := do
(e, ctx) ← get >>= λ ctx => pure $ (Context.eNewMeta $ Expr.sort Level.zero).run ctx;
set ctx;
e ← EState.fromState $ Context.eNewMeta $ Expr.sort Level.zero;
let t₁ := Expr.fvar "foo";
let t₂ := e;
eUnify t₁ t₂;