@@ -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