added missing preprocessing step for extraction (due to Stefan Berghofer)
authorManuel Eberl <eberlm@in.tum.de>
Fri, 15 May 2020 08:40:28 +0200
changeset 72068 07c85c68ff03
parent 72067 db120661dded
child 72069 57ace76cbffa
added missing preprocessing step for extraction (due to Stefan Berghofer)
src/Pure/Proof/proof_rewrite_rules.ML
--- a/src/Pure/Proof/proof_rewrite_rules.ML	Wed May 13 16:35:36 2020 +0200
+++ b/src/Pure/Proof/proof_rewrite_rules.ML	Fri May 15 08:40:28 2020 +0200
@@ -94,6 +94,14 @@
                 (equal_elim_axm %> A %> B %% Proofterm.incr_pboundvars 2 0 prf1 %% PBound 0)))))
         end
 
+      | rew' (PAxm ("Pure.combination", _, _) %
+        SOME (imp as (imp' as Const ("Pure.imp", T)) $ X) % _ % Y % Z %%
+          (PAxm ("Pure.reflexive", _, _) % _) %% prf) =
+        SOME (ax Proofterm.combination_axm [propT, propT] %> imp % ?? imp % Y % Z %%
+          (ax Proofterm.combination_axm [propT, propT --> propT] %> imp' % ?? imp' % ?? X % ?? X %%
+             (ax Proofterm.reflexive_axm [T] % ?? imp') %%
+             (ax Proofterm.reflexive_axm [propT] % ?? X)) %% prf)
+
       | rew' (PAxm ("Pure.equal_elim", _, _) % SOME X % SOME Y %%
         (PAxm ("Pure.combination", _, _) % SOME (Const ("Pure.all", _)) % _ % _ % _ %%
           (PAxm ("Pure.reflexive", _, _) % _) %%