fixup

LPCIC · Sep 19, 2024 · 7917d4d · 7917d4d
1 parent 63623cf
commit 7917d4d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/apps/tc/elpi/tc_aux.elpi b/apps/tc/elpi/tc_aux.elpi
@@ -158,7 +158,8 @@ namespace tc {
 
   pred remove-clause i:string, i:prop, i:list prop.
   remove-clause ClauseName P Locality :-
-    Locality => add-tc-db _ (remove ClauseName) P.
+    %Locality => add-tc-db _ (remove ClauseName) P.
+    Locality => add-tc-db _ (replace ClauseName) (P :- fail).
 
   % [section-var->decl.aux L R] auxiliary function for `section-var->decl`
   pred section-var->decl.aux i:list constant, o:list prop.