diff options
| author | Pierre-Marie Pédrot | 2019-05-02 17:54:40 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-05-02 17:54:40 +0200 |
| commit | 6960da4736186fa6214854329f36f558e7aa4d0b (patch) | |
| tree | 47e44752c3551c156097f48d13abf2b48c529b60 /plugins/ltac/tacintern.ml | |
| parent | 2aafa0953ce93e3e618c918461ddc1cf1500f97c (diff) | |
| parent | 29955b2b6e5eb46adc71425956a5c940522fb30d (diff) | |
Merge PR #10017: Exposing a change_no_check tactic
Ack-by: Zimmi48
Ack-by: herbelin
Reviewed-by: ppedrot
Diffstat (limited to 'plugins/ltac/tacintern.ml')
| -rw-r--r-- | plugins/ltac/tacintern.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/plugins/ltac/tacintern.ml b/plugins/ltac/tacintern.ml index 543d4de0fe..c1f7fab123 100644 --- a/plugins/ltac/tacintern.ml +++ b/plugins/ltac/tacintern.ml @@ -551,7 +551,7 @@ let rec intern_atomic lf ist x = | TacReduce (r,cl) -> dump_glob_red_expr r; TacReduce (intern_red_expr ist r, clause_app (intern_hyp_location ist) cl) - | TacChange (None,c,cl) -> + | TacChange (check,None,c,cl) -> let is_onhyps = match cl.onhyps with | None | Some [] -> true | _ -> false @@ -560,17 +560,17 @@ let rec intern_atomic lf ist x = | AtLeastOneOccurrence | AllOccurrences | NoOccurrences -> true | _ -> false in - TacChange (None, + TacChange (check,None, (if is_onhyps && is_onconcl then intern_type ist c else intern_constr ist c), clause_app (intern_hyp_location ist) cl) - | TacChange (Some p,c,cl) -> + | TacChange (check,Some p,c,cl) -> let { ltacvars } = ist in let metas,pat = intern_typed_pattern ist ~as_type:false ~ltacvars p in let fold accu x = Id.Set.add x accu in let ltacvars = List.fold_left fold ltacvars metas in let ist' = { ist with ltacvars } in - TacChange (Some pat,intern_constr ist' c, + TacChange (check,Some pat,intern_constr ist' c, clause_app (intern_hyp_location ist) cl) (* Equality and inversion *) |