equal
deleted
inserted
replaced
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 |