e86ab1b1db
This PR makes `IO.RealWorld` opaque. It also adds a new compiler -only `lcRealWorld` constant to represent this type within the compiler. By default, an opaque type definition is treated like `lcAny`, whereas we want a more efficient representation. At the moment, this isn't a big difference, but in the future we would like to completely erase `IO.RealWorld` at runtime.
85 lines
3.3 KiB
Text
85 lines
3.3 KiB
Text
import Lean
|
||
|
||
/-- `erased α` is the same as `α`, except that the elements
|
||
of `erased α` are erased in the VM in the same way as types
|
||
and proofs. This can be used to track data without storing it
|
||
literally. -/
|
||
def Erased (α : Sort u) : Sort max 1 u :=
|
||
Σ's : α → Prop, ∃ a, (fun b => a = b) = s
|
||
|
||
namespace Erased
|
||
|
||
/-- Erase a value. -/
|
||
@[inline]
|
||
def mk {α} (a : α) : Erased α :=
|
||
⟨fun b => a = b, a, rfl⟩
|
||
|
||
open Lean.Compiler
|
||
set_option pp.explicit true
|
||
set_option pp.funBinderTypes true
|
||
set_option pp.letVarTypes true
|
||
set_option trace.Compiler.result true
|
||
/--
|
||
trace: [Compiler.result] size: 1
|
||
def Erased.mk (α : lcErased) (a : lcAny) : PSigma lcErased lcAny :=
|
||
let _x.1 : PSigma lcErased lcAny := PSigma.mk ◾ ◾ ◾ ◾;
|
||
return _x.1
|
||
---
|
||
trace: [Compiler.result] size: 5
|
||
def _eval._lam_0 (_x.1 : Array
|
||
Lean.Name) (_x.2 : PUnit) (_y.3 : Lean.Elab.Term.Context) (_y.4 : lcAny) (_y.5 : Lean.Meta.Context) (_y.6 : lcAny) (_y.7 : Lean.Core.Context) (_y.8 : lcAny) (_y.9 : lcRealWorld) : EStateM.Result
|
||
Lean.Exception lcRealWorld PUnit :=
|
||
let _x.10 : EStateM.Result Lean.Exception lcRealWorld PUnit := compile _x.1 _y.7 _y.8 _y.9;
|
||
cases _x.10 : EStateM.Result Lean.Exception lcRealWorld PUnit
|
||
| EStateM.Result.ok (a.11 : PUnit) (a.12 : lcRealWorld) =>
|
||
let _x.13 : EStateM.Result Lean.Exception lcRealWorld PUnit := EStateM.Result.ok ◾ ◾ ◾ _x.2 a.12;
|
||
return _x.13
|
||
| EStateM.Result.error (a.14 : Lean.Exception) (a.15 : lcRealWorld) =>
|
||
return _x.10
|
||
[Compiler.result] size: 1
|
||
def _eval._closed_0 : String :=
|
||
let _x.1 : String := "Erased";
|
||
return _x.1
|
||
[Compiler.result] size: 1
|
||
def _eval._closed_1 : String :=
|
||
let _x.1 : String := "mk";
|
||
return _x.1
|
||
[Compiler.result] size: 3
|
||
def _eval._closed_2 : Lean.Name :=
|
||
let _x.1 : String := _eval._closed_1;
|
||
let _x.2 : String := _eval._closed_0;
|
||
let _x.3 : Lean.Name := Lean.Name.mkStr2 _x.2 _x.1;
|
||
return _x.3
|
||
[Compiler.result] size: 2
|
||
def _eval._closed_3 : Array Lean.Name :=
|
||
let _x.1 : Nat := 1;
|
||
let _x.2 : Array Lean.Name := Array.mkEmpty ◾ _x.1;
|
||
return _x.2
|
||
[Compiler.result] size: 3
|
||
def _eval._closed_4 : Array Lean.Name :=
|
||
let _x.1 : Lean.Name := _eval._closed_2;
|
||
let _x.2 : Array Lean.Name := _eval._closed_3;
|
||
let _x.3 : Array Lean.Name := Array.push ◾ _x.2 _x.1;
|
||
return _x.3
|
||
[Compiler.result] size: 9
|
||
def _eval (a.1 : Lean.Elab.Command.Context) (a.2 : lcAny) (a.3 : lcRealWorld) : EStateM.Result Lean.Exception
|
||
lcRealWorld PUnit :=
|
||
let _x.4 : String := _eval._closed_0;
|
||
let _x.5 : String := _eval._closed_1;
|
||
let _x.6 : Lean.Name := _eval._closed_2;
|
||
let _x.7 : Nat := 1;
|
||
let _x.8 : Array Lean.Name := _eval._closed_3;
|
||
let _x.9 : Array Lean.Name := _eval._closed_4;
|
||
let _x.10 : PUnit := PUnit.unit;
|
||
let _f.11 : Lean.Elab.Term.Context →
|
||
lcAny →
|
||
Lean.Meta.Context →
|
||
lcAny →
|
||
Lean.Core.Context →
|
||
lcAny → lcRealWorld → EStateM.Result Lean.Exception lcRealWorld PUnit := _eval._lam_0 _x.9 _x.10;
|
||
let _x.12 : EStateM.Result Lean.Exception lcRealWorld
|
||
PUnit := Lean.Elab.Command.liftTermElabM._redArg _f.11 a.1 a.2 a.3;
|
||
return _x.12
|
||
-/
|
||
#guard_msgs in
|
||
run_meta Lean.Compiler.compile #[``Erased.mk]
|