diff options
author | 2014-06-17 14:26:02 +0200 | |
---|---|---|
committer | 2014-06-17 15:44:38 +0200 | |
commit | 90d64647d3fd5dbf5c337944dc0038f0b19b8a51 (patch) | |
tree | b33528c72730ec541a75e3d0baaead6789f4dcb9 /interp/notation.ml | |
parent | d412844753ef25f4431c209f47b97b9fa498297d (diff) |
Removing dead code.
Diffstat (limited to 'interp/notation.ml')
-rw-r--r-- | interp/notation.ml | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/interp/notation.ml b/interp/notation.ml index 6fd6001f4..ec82c8aea 100644 --- a/interp/notation.ml +++ b/interp/notation.ml @@ -214,18 +214,6 @@ type interp_rule = | NotationRule of scope_name option * notation | SynDefRule of kernel_name -let compare_interp_rule x y = - match x, y with - | NotationRule (sno1, n1), NotationRule (sno2, n2) -> - (match sno1, sno2 with - | None, None -> String.compare n1 n2 - | None, Some _ -> -1 - | Some sn1, Some sn2 -> String.compare sn1 sn2 - | Some _, None -> 1) - | SynDefRule kn1, SynDefRule kn2 -> KerName.compare kn1 kn2 - | NotationRule _, SynDefRule _ -> -1 - | SynDefRule _, NotationRule _ -> 1 - (* We define keys for glob_constr and aconstr to split the syntax entries according to the key of the pattern (adapted from Chet Murthy by HH) *) |