subscript numbers are no longer special

This commit is contained in:
rhiannon morris 2023-11-05 15:39:52 +01:00
parent 580fbc8fd8
commit f58fa5218f
2 changed files with 0 additions and 19 deletions

View file

@ -30,14 +30,6 @@ BTelescope : Nat -> Nat -> Type
BTelescope = Telescope' BindName
private
subscript : String -> String
subscript = pack . map sub . unpack where
sub : Char -> Char
sub c = case c of
'0' => ''; '1' => ''; '2' => ''; '3' => ''; '4' => ''
'5' => ''; '6' => ''; '7' => ''; '8' => ''; '9' => ''; _ => c
private
superscript : String -> String
superscript = pack . map sup . unpack where