diff options
author | 2017-04-04 14:35:43 -0400 | |
---|---|---|
committer | 2017-04-04 16:05:55 -0400 | |
commit | 331fe3fcfb27d87dcfb0585ced3c051f19aaedf2 (patch) | |
tree | a9af1a7f8bba3fb1f6e7d1610ca1553f5e5f23c2 /src/Reflection/InterpProofs.v | |
parent | 6cba3c4e0572e9d917d3578c39f4f85cd3799b54 (diff) |
Add [Proof using] to most proofs
This closes #146 and makes `make quick` faster.
The changes were generated by adding [Global Set Suggest Proof Using.]
to GlobalSettings.v, and then following [the instructions for a script I
wrote](https://github.com/JasonGross/coq-tools#proof-using-helper).
Diffstat (limited to 'src/Reflection/InterpProofs.v')
-rw-r--r-- | src/Reflection/InterpProofs.v | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Reflection/InterpProofs.v b/src/Reflection/InterpProofs.v index 88ceaac56..5d8322441 100644 --- a/src/Reflection/InterpProofs.v +++ b/src/Reflection/InterpProofs.v @@ -22,11 +22,11 @@ Section language. : Syntax.interpf interp_op (LetIn (tx:=tx) ex (tC:=tC) eC) = dlet x := Syntax.interpf interp_op ex in Syntax.interpf interp_op (eC x). - Proof. reflexivity. Qed. + Proof using Type. reflexivity. Qed. Lemma interpf_SmartVarf t v : Syntax.interpf interp_op (SmartVarf (t:=t) v) = v. - Proof. + Proof using Type. unfold SmartVarf; induction t; repeat match goal with | _ => reflexivity @@ -42,7 +42,7 @@ Section language. t (x, x')) (flatten_binding_list (t := t') (SmartVarVarf v) v)) : interpf interp_op x = x'. - Proof. + Proof using Type. clear -Hin. induction t'; simpl in *; try tauto. { intuition (inversion_sigma; inversion_prod; subst; eauto). } @@ -57,7 +57,7 @@ Section language. t (x, x')) (flatten_binding_list (t := t') (SmartVarVarf v') v)) : interpf interp_op x = x'. - Proof. + Proof using Type. subst; eapply interpf_SmartVarVarf; eassumption. Qed. End language. |