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