Skip to content
Snippets Groups Projects
Commit 83767d70 authored by Ralf Jung's avatar Ralf Jung
Browse files

Merge branch 'master' of gitlab.mpi-sws.org:FP/iris-coq

parents 87b4a225 3fdd636a
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 5 additions and 5 deletions
heap_lang/lang.v
+ 5
− 5
View file @ 83767d70
......@@ -51,15 +51,15 @@ Inductive val :=
| LocV (l : loc).
Global Instance base_lit_dec_eq (l1 l2 : base_lit) : Decision (l1 = l2).
Proof. rewrite /Decision. decide equality; apply decide, _. Qed.
Proof. solve_decision. Defined.
Global Instance un_op_dec_eq (op1 op2 : un_op) : Decision (op1 = op2).
Proof. rewrite /Decision. decide equality; apply decide, _. Qed.
Proof. solve_decision. Defined.
Global Instance bin_op_dec_eq (op1 op2 : bin_op) : Decision (op1 = op2).
Proof. rewrite /Decision. decide equality; apply decide, _. Qed.
Proof. solve_decision. Defined.
Global Instance expr_dec_eq (e1 e2 : expr) : Decision (e1 = e2).
Proof. rewrite /Decision. decide equality; apply decide, _. Qed.
Proof. solve_decision. Defined.
Global Instance val_dec_eq (v1 v2 : val) : Decision (v1 = v2).
Proof. rewrite /Decision. decide equality; apply decide, _. Qed.
Proof. solve_decision. Defined.
Delimit Scope lang_scope with L.
Bind Scope lang_scope with expr val.
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment