diff options
| author | Matthieu Sozeau | 2016-06-16 18:49:07 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2016-06-27 23:29:05 +0200 |
| commit | bd55e2b2787bbabf7fba126126611c58548424fc (patch) | |
| tree | c56d7ebcb1c1d240ae84dcd9bd411d3f0932a486 /tactics | |
| parent | 727dcedd8d1d6be5c77cbf4bbe08ff18facf3ba2 (diff) | |
Shrink Proofs/Obligations by default and deprecate
Fix bug in Shrink obligations with Program in the process.
Fix implementation of shrink for abstract proofs
- Update doc in term.mli to reflect the fact that let-in's
are part of what is returned by [decompose_lam_assum].
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tactics.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index e264505314..f3e117f8c3 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -119,12 +119,12 @@ let _ = (* Shrinking of abstract proofs. *) -let shrink_abstract = ref false +let shrink_abstract = ref true let _ = declare_bool_option { optsync = true; - optdepr = false; + optdepr = true; optname = "shrinking of abstracted proofs"; optkey = ["Shrink"; "Abstract"]; optread = (fun () -> !shrink_abstract) ; @@ -4774,7 +4774,7 @@ let rec shrink ctx sign c t accu = match ctx, sign with | [], [] -> (c, t, accu) | p :: ctx, decl :: sign -> - if noccurn 1 c then + if noccurn 1 c && noccurn 1 t then let c = subst1 mkProp c in let t = subst1 mkProp t in shrink ctx sign c t accu |