diff options
| author | Quentin Garchery <garchery.quentin@gmail.com> | 2018-10-27 20:08:44 +0200 |
|---|---|---|
| committer | Valentin Blot <24938579+vblot@users.noreply.github.com> | 2018-10-28 00:39:25 +0200 |
| commit | faaa2848c37444f8f37ac432c25f9f813e1df39b (patch) | |
| tree | 2672d165fd13b5262005406d1496bc6a14e8b521 /src/trace/smtMisc.ml | |
| parent | 7940ef63c654be26b41ce20162207f3c67d0b10a (diff) | |
| download | smtcoq-faaa2848c37444f8f37ac432c25f9f813e1df39b.tar.gz smtcoq-faaa2848c37444f8f37ac432c25f9f813e1df39b.zip | |
Adding support for lemmas in the command verit
Diffstat (limited to 'src/trace/smtMisc.ml')
| -rw-r--r-- | src/trace/smtMisc.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/trace/smtMisc.ml b/src/trace/smtMisc.ml index 1ad92ac..58de402 100644 --- a/src/trace/smtMisc.ml +++ b/src/trace/smtMisc.ml @@ -38,3 +38,7 @@ let declare_new_variable = Structures.declare_new_variable let mkName s = let id = Names.id_of_string s in Names.Name id + +let string_of_name = function + Names.Name id -> Names.string_of_id id + | _ -> failwith "unnamed rel" |