diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-04-19 09:18:31 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-04-19 09:18:31 +0200 |
| commit | 59b0041147a9d2dddc1fe14f624a2cf5695f2ea2 (patch) | |
| tree | d4967d23e54ea5162b0dfb8670857bba3f9360c2 /plugins/funind/indfun_common.ml | |
| parent | 727ef1bd345f9ad9e08d9e4f136e2db7d034a93d (diff) | |
| parent | 031d0fbcea7c1390dc7e6cf89cfaee8609ecfed1 (diff) | |
Merge PR#538: Correction of bug #4306
Diffstat (limited to 'plugins/funind/indfun_common.ml')
| -rw-r--r-- | plugins/funind/indfun_common.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/plugins/funind/indfun_common.ml b/plugins/funind/indfun_common.ml index f56e92414..8419f1d8f 100644 --- a/plugins/funind/indfun_common.ml +++ b/plugins/funind/indfun_common.ml @@ -506,3 +506,9 @@ let list_rewrite (rev:bool) (eqs: (constr*bool) list) = (List.fold_right (fun (eq,b) i -> tclORELSE (Proofview.V82.of_tactic ((if b then Equality.rewriteLR else Equality.rewriteRL) eq)) i) (if rev then (List.rev eqs) else eqs) (tclFAIL 0 (mt())));; + + +type tcc_lemma_value = + | Undefined + | Value of Constr.constr + | Not_needed |