Skip to content

Commit

Permalink
cleanup
Browse files Browse the repository at this point in the history
  • Loading branch information
alexkeizer committed Dec 18, 2024
1 parent 3cb8458 commit e044dc9
Showing 1 changed file with 0 additions and 12 deletions.
12 changes: 0 additions & 12 deletions Qpf/Elab/ShapeType.lean
Original file line number Diff line number Diff line change
Expand Up @@ -123,18 +123,6 @@ def addToEnvironmentAsInductive (s : ShapeType n) : TermElabM Unit := do
## Defining a shape type as a polynomial functor
-/

#check MvPFunctor.mk

-- set_option pp.universes true in
#check Fin.cons (n:=?m) (α := fun _ => TypeVec n)
#check Fin.elim0 (α := TypeVec n)

#check Fin.cons

set_option pp.universes true in
#check TypeVec.append1
#check MvPFunctor

/-- Convert an array of expressions of type `Type $u` into a single expression
of type `TypeVec.{$u}` -/
def arrayToTypeVecExpr (x : Array Expr) (u : Level) : Expr :=
Expand Down

0 comments on commit e044dc9

Please sign in to comment.