Perform metavariable substitution from quoting
Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
parent
1fca9171b1
commit
f964a60412
|
@ -43,7 +43,7 @@ renderRuleViaRules env r =
|
|||
|> Maybe.map (\prems -> buildStr conc prems))
|
||||
|
||||
quoteMetavariable : Metavariable -> Term Void
|
||||
quoteMetavariable (MkMetavariable s) = Call "metavariable" [StringLit <| String.dropLeft 1 s]
|
||||
quoteMetavariable v = Call "metavariable" [StringLit <| metavariableToLatex v]
|
||||
|
||||
termToLatex : (a -> String) -> Term a -> String
|
||||
termToLatex f t =
|
||||
|
|
Loading…
Reference in New Issue
Block a user