src/HOL/ex/veriT_Preprocessing.thy
changeset 69220 c6b15fc78f78
parent 69217 a8c707352ccc
child 69597 ff784d5a5bfb
equal deleted inserted replaced
69219:d4cec24a1d87 69220:c6b15fc78f78
   473     @{term "vr1 + vr2 + vr2 :: nat"}),
   473     @{term "vr1 + vr2 + vr2 :: nat"}),
   474    N (Trans @{term "let vr1a = vr2 in vr1 + vr1a + vr2 :: nat"},
   474    N (Trans @{term "let vr1a = vr2 in vr1 + vr1a + vr2 :: nat"},
   475      [N (Let [@{term "vr1 :: nat"}], [N (Refl, []), N (Refl, [])]),
   475      [N (Let [@{term "vr1 :: nat"}], [N (Refl, []), N (Refl, [])]),
   476       N (Let [@{term "vr2 :: nat"}], [N (Refl, []), N (Refl, [])])]));
   476       N (Let [@{term "vr2 :: nat"}], [N (Refl, []), N (Refl, [])])]));
   477 
   477 
   478 reconstruct_proof @{context} proof18
   478 reconstruct_proof @{context} proof25
   479 \<close>
   479 \<close>
   480 
   480 
   481 end
   481 end