diff options
| author | Maxime Dénès | 2018-02-24 09:26:03 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-02-24 09:26:03 +0100 |
| commit | 7895d276146496648d576914aab4aded4b4a32cd (patch) | |
| tree | 24e8de17078242c1ea39e31ecfe55a1c024d0eff /tactics/equality.ml | |
| parent | 0c5f0afffd37582787f79267d9841259095b7edc (diff) | |
| parent | 9bebbb96e58b3c1b0f7f88ba2af45462eae69b0f (diff) | |
Merge PR #6745: [ast] Improve precision of Ast location recognition in serialization.
Diffstat (limited to 'tactics/equality.ml')
| -rw-r--r-- | tactics/equality.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index 674d01777d..9a1ac768c7 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -1484,7 +1484,7 @@ let simpleInjClause flags with_evars = function | Some c -> onInductionArg (fun clear_flag -> onEquality with_evars (injEq flags ~old:true with_evars clear_flag None)) c let injConcl flags = injClause flags None false None -let injHyp flags clear_flag id = injClause flags None false (Some (clear_flag,ElimOnIdent (Loc.tag id))) +let injHyp flags clear_flag id = injClause flags None false (Some (clear_flag,ElimOnIdent CAst.(make id))) let decompEqThen keep_proofs ntac (lbeq,_,(t,t1,t2) as u) clause = Proofview.Goal.enter begin fun gl -> |