diff options
Diffstat (limited to 'plugins/firstorder')
| -rw-r--r-- | plugins/firstorder/rules.ml | 2 | ||||
| -rw-r--r-- | plugins/firstorder/rules.mli | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/plugins/firstorder/rules.ml b/plugins/firstorder/rules.ml index fc31ee6fc..75d69099a 100644 --- a/plugins/firstorder/rules.ml +++ b/plugins/firstorder/rules.ml @@ -45,7 +45,7 @@ let wrap n b continue seq gls= add_formula Concl dummy_id (pf_concl gls) seq1 gls else seq1 in continue seq2 gls -let id_of_global=function +let basename_of_global=function VarRef id->id | _->assert false diff --git a/plugins/firstorder/rules.mli b/plugins/firstorder/rules.mli index 1c2c93a49..b804c93ae 100644 --- a/plugins/firstorder/rules.mli +++ b/plugins/firstorder/rules.mli @@ -21,7 +21,7 @@ type 'a with_backtracking = tactic -> 'a val wrap : int -> bool -> seqtac -val id_of_global: global_reference -> identifier +val basename_of_global: global_reference -> identifier val clear_global: global_reference -> tactic |