61 lines
1.9 KiB
Text
61 lines
1.9 KiB
Text
/-
|
|
Copyright (c) 2016 Microsoft Corporation. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
Authors: Leonardo de Moura
|
|
-/
|
|
prelude
|
|
import init.ordering init.coe
|
|
|
|
/- Reflect a C++ name object. The VM replaces it with the C++ implementation. -/
|
|
inductive name :=
|
|
| anonymous : name
|
|
| mk_string : string → name → name
|
|
| mk_numeral : unsigned → name → name
|
|
|
|
definition name.is_inhabited [instance] : inhabited name :=
|
|
inhabited.mk name.anonymous
|
|
|
|
definition mk_str_name (n : name) (s : string) : name :=
|
|
name.mk_string s n
|
|
|
|
definition mk_num_name (n : name) (v : nat) : name :=
|
|
name.mk_numeral (unsigned.of_nat v) n
|
|
|
|
definition mk_simple_name (s : string) : name :=
|
|
mk_str_name name.anonymous s
|
|
|
|
definition coe_string_to_name [instance] : has_coe string name :=
|
|
has_coe.mk mk_simple_name
|
|
|
|
infix ` <.> `:65 := mk_str_name
|
|
|
|
open name
|
|
|
|
definition name.get_prefix : name → name
|
|
| anonymous := anonymous
|
|
| (mk_string s p) := p
|
|
| (mk_numeral s p) := p
|
|
|
|
definition name.to_string : name → string
|
|
| anonymous := "[anonymous]"
|
|
| (mk_string s anonymous) := s
|
|
| (mk_numeral v anonymous) := to_string v
|
|
| (mk_string s n) := name.to_string n ++ "." ++ s
|
|
| (mk_numeral v n) := name.to_string n ++ "." ++ to_string v
|
|
|
|
definition name.has_to_string [instance] : has_to_string name :=
|
|
has_to_string.mk name.to_string
|
|
|
|
/- TODO(Leo): provide a definition in Lean. -/
|
|
meta_constant name.has_decidable_eq : decidable_eq name
|
|
/- Both cmp and lex_cmp are total orders, but lex_cmp implements a lexicographical order. -/
|
|
meta_constant name.cmp : name → name → ordering
|
|
meta_constant name.lex_cmp : name → name → ordering
|
|
|
|
attribute [instance] name.has_decidable_eq
|
|
|
|
meta_definition name_has_ordering [instance] : has_ordering name :=
|
|
has_ordering.mk name.cmp
|
|
|
|
/- (name.append_after n i) return a name of the form n_i -/
|
|
meta_constant name.append_after : name → nat → name
|