Simplify the proof of init_prod.

015a5d52 · Jacques-Henri Jourdan · d2b01768 · 015a5d52
Commit 015a5d52 authored 8 years ago by Jacques-Henri Jourdan
--- a/theories/typing/tests/init_prod.v
+++ b/theories/typing/tests/init_prod.v
@@ -26,7 +26,7 @@ Section rebor.
      { apply (uninit_product_subtype [] [] [1;1]%nat). }
      intros r. simpl_subst. unfold Z.to_nat, Pos.to_nat; simpl.
    eapply (type_assign (own 2 (uninit 1))); try solve_typing. by apply write_own.
-    eapply (type_assign (own 2 (uninit 1))); try solve_typing. by apply write_own.
+    eapply type_assign; try solve_typing. by apply write_own.
    eapply type_delete; try solve_typing.
    eapply type_delete; try solve_typing.
    eapply (type_jump [_]); solve_typing.