diff options
| author | Matthieu Sozeau | 2016-06-27 23:36:31 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2016-06-27 23:36:31 +0200 |
| commit | 9f9c1dc37ca3ffe30417c8f7b63d62ad5b63e51b (patch) | |
| tree | 0659a5bfd6c60a82cb0c15026ee490903930eead /tactics | |
| parent | 727dcedd8d1d6be5c77cbf4bbe08ff18facf3ba2 (diff) | |
| parent | 5193311836394d3d18a0187a0d77657aa060b651 (diff) | |
Merge branch 'shrinkobl' into trunk
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 |