Perform metavariable substitution from quoting

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
Danila Fedorin 2023-12-02 00:06:33 -08:00
parent 1fca9171b1
commit f964a60412

View File

@ -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 =