aboutsummaryrefslogtreecommitdiff
path: root/src/Reflection/InterpProofs.v
diff options
context:
space:
mode:
authorGravatar Jason Gross <jgross@mit.edu>2017-04-04 14:35:43 -0400
committerGravatar Jason Gross <jasongross9@gmail.com>2017-04-04 16:05:55 -0400
commit331fe3fcfb27d87dcfb0585ced3c051f19aaedf2 (patch)
treea9af1a7f8bba3fb1f6e7d1610ca1553f5e5f23c2 /src/Reflection/InterpProofs.v
parent6cba3c4e0572e9d917d3578c39f4f85cd3799b54 (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.v8
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.