• Home
• io.github.mmhelloworld
• idris-jvm-compiler
• 0.7.1-rc.1
• source code
• Views.idr

×

Project download

Many resources are needed to download a project. Please understand that we have to compensate our server costs. Thank you in advance.
Project price only 1 $

You can buy this project and download/modify it how often you want.

Core.TT.Views.idr Maven / Gradle / Ivy

module Core.TT.Views

import Core.Env
import Core.TT

||| Go under n Pis (if n < 0 then go under as many as possible)
export
underPis : (n : Int) -> Env Term vars -> Term vars ->
           (bnds : SnocList Name ** (Env Term (bnds <>> vars), Term (bnds <>> vars)))
underPis 0 env t = ([<] ** (env, t))
underPis n env (Bind fc x bd@(Pi{}) scope) =
  let (bnds ** (env', scope')) := underPis (n - 1) (bd :: env) scope in
  (bnds :< x ** (env', scope'))
underPis n env (Bind fc x bd@(PLet fc1 y val ty) scope) = underPis n env (subst val scope)
underPis n env t = ([<] ** (env, t))