24 lines
626 B
Text
24 lines
626 B
Text
/-
|
|
Copyright (c) 2022 Microsoft Corporation. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
Authors: Leonardo de Moura
|
|
-/
|
|
module
|
|
|
|
prelude
|
|
public import Lean.Compiler.LCNF.BaseTypes
|
|
public import Lean.Compiler.LCNF.MonoTypes
|
|
|
|
public section
|
|
|
|
namespace Lean.Compiler.LCNF
|
|
|
|
/--
|
|
Return the LCNF type for constructors, inductive types, and foreign functions.
|
|
-/
|
|
def getOtherDeclType (declName : Name) (us : List Level := []) : CompilerM Expr := do
|
|
match (← getPhase) with
|
|
| .base => getOtherDeclBaseType declName us
|
|
| .mono => getOtherDeclMonoType declName
|
|
|
|
end Lean.Compiler.LCNF
|