Equations
Equations
Equations
@[inline]
Equations
@[inline]
Equations
- Lean.Parser.many1Indent p = Lean.Parser.withPosition (Lean.Parser.many1 (HAndThen.hAndThen (Lean.Parser.checkColGe "irrelevant") fun x => p))
@[inline]
Equations
- Lean.Parser.manyIndent p = Lean.Parser.withPosition (Lean.Parser.many (HAndThen.hAndThen (Lean.Parser.checkColGe "irrelevant") fun x => p))
@[inline]
Equations
@[inline]
Equations
@[inline]
Equations
@[inline]
Equations
@[inline]
Equations
@[inline]
Equations
@[inline]
Equations
@[inline]
Equations
@[inline]
Equations
@[inline]
Equations
@[inline]
Equations
@[inline]
Equations
Equations
- Lean.ppDedent.formatter p = do let opts ← Lean.getOptions Lean.PrettyPrinter.Formatter.indent p (some (0 - Int.ofNat (Std.Format.getIndent opts)))
Equations
- Lean.ppAllowUngrouped.formatter = modify fun a => { stxTrav := a.stxTrav, leadWord := a.leadWord, isUngrouped := a.isUngrouped, mustBeGrouped := false, stack := a.stack }
Equations
- Lean.ppDedentIfGrouped.formatter p = do Lean.PrettyPrinter.Formatter.concat p let a ← Lean.getOptions let indent : Nat := Std.Format.getIndent a let a ← get if a.isUngrouped = true then pure PUnit.unit else modify fun st => { stxTrav := st.stxTrav, leadWord := st.leadWord, isUngrouped := st.isUngrouped, mustBeGrouped := st.mustBeGrouped, stack := Array.modify st.stack (Array.size st.stack - 1) fun a => Lean.Format.nest (0 - Int.ofNat indent) a }
Equations
- Lean.ppHardLineUnlessUngrouped.formatter = do let a ← get if a.isUngrouped = true then Lean.PrettyPrinter.Formatter.pushLine else Lean.ppLine.formatter
Equations
- Lean.Parser.termRegister_parser_alias___ = Lean.ParserDescr.node `Lean.Parser.termRegister_parser_alias___ 1022 (Lean.ParserDescr.binary `andthen (Lean.ParserDescr.binary `andthen (Lean.ParserDescr.symbol "register_parser_alias") (Lean.ParserDescr.unary `optional (Lean.ParserDescr.parser `Lean.Parser.strLit))) (Lean.ParserDescr.parser `Lean.Parser.ident))