Skip to content

Commit 91da285

Browse files
committed
In hidden theories, remove all hints
Hidden theories are created when inlining a theory in a clone. It makes more sense to remove the hints of the target theory.
1 parent f71e049 commit 91da285

1 file changed

Lines changed: 12 additions & 5 deletions

File tree

src/ecTheoryReplay.ml

Lines changed: 12 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1062,21 +1062,28 @@ and replay1 (ove : _ ovrenv) (subst, ops, proofs, scope) (hidden, item) =
10621062
| Th_export (p, lc) ->
10631063
replay_export ove (subst, ops, proofs, scope) (import, p, lc)
10641064

1065-
| Th_baserw (x, lc) ->
1065+
| Th_baserw (x, lc) when not hidden ->
10661066
replay_baserw ove (subst, ops, proofs, scope) (import, x, lc)
10671067

1068-
| Th_addrw (p, l, lc) ->
1068+
| Th_addrw (p, l, lc) when not hidden ->
10691069
replay_addrw ove (subst, ops, proofs, scope) (import, p, l, lc)
10701070

1071-
| Th_reduction rules ->
1071+
| Th_reduction rules when not hidden ->
10721072
replay_reduction ove (subst, ops, proofs, scope) (import, rules)
10731073

1074-
| Th_auto at_base ->
1074+
| Th_auto at_base when not hidden ->
10751075
replay_auto ove (subst, ops, proofs, scope) (import, at_base)
10761076

1077-
| Th_instance ((typ, ty), tc, lc) ->
1077+
| Th_instance ((typ, ty), tc, lc) when not hidden ->
10781078
replay_instance ove (subst, ops, proofs, scope) (import, (typ, ty), tc, lc)
10791079

1080+
| Th_baserw _
1081+
| Th_addrw _
1082+
| Th_reduction _
1083+
| Th_auto _
1084+
| Th_instance _ ->
1085+
(subst, ops, proofs, scope)
1086+
10801087
| Th_alias (name, target) ->
10811088
replay_alias ove (subst, ops, proofs, scope) (item.ti_import, name, target)
10821089

0 commit comments

Comments
 (0)