18 lines
417 B
Text
18 lines
417 B
Text
/-
|
|
Copyright (c) 2021 Mac Malone. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
Authors: Mac Malone
|
|
-/
|
|
import Lean.Parser.Command
|
|
|
|
namespace Lake.DSL
|
|
open Lean Parser Command
|
|
|
|
syntax structVal :=
|
|
"{" manyIndent(group(Term.structInstField ", "?)) "}"
|
|
|
|
syntax declValDo :=
|
|
ppSpace Term.do (Term.whereDecls)?
|
|
|
|
syntax declValStruct :=
|
|
ppSpace structVal (Term.whereDecls)?
|