Skip to content

Commit d672d43

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 e9aec65 commit d672d43

File tree

1 file changed

+12
-5
lines changed

1 file changed

+12
-5
lines changed

src/ecTheoryReplay.ml

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

1056-
| Th_baserw (x, lc) ->
1056+
| Th_baserw (x, lc) when not hidden ->
10571057
replay_baserw ove (subst, ops, proofs, scope) (import, x, lc)
10581058

1059-
| Th_addrw (p, l, lc) ->
1059+
| Th_addrw (p, l, lc) when not hidden ->
10601060
replay_addrw ove (subst, ops, proofs, scope) (import, p, l, lc)
10611061

1062-
| Th_reduction rules ->
1062+
| Th_reduction rules when not hidden ->
10631063
replay_reduction ove (subst, ops, proofs, scope) (import, rules)
10641064

1065-
| Th_auto at_base ->
1065+
| Th_auto at_base when not hidden ->
10661066
replay_auto ove (subst, ops, proofs, scope) (import, at_base)
10671067

1068-
| Th_instance ((typ, ty), tc, lc) ->
1068+
| Th_instance ((typ, ty), tc, lc) when not hidden ->
10691069
replay_instance ove (subst, ops, proofs, scope) (import, (typ, ty), tc, lc)
10701070

1071+
| Th_baserw _
1072+
| Th_addrw _
1073+
| Th_reduction _
1074+
| Th_auto _
1075+
| Th_instance _ ->
1076+
(subst, ops, proofs, scope)
1077+
10711078
| Th_alias (name, target) ->
10721079
replay_alias ove (subst, ops, proofs, scope) (item.ti_import, name, target)
10731080

0 commit comments

Comments
 (0)