COFEs on nat and bool.

6e9a9572 · Robbert Krebbers · 9fd1f58e · 6e9a9572
Commit 6e9a9572 authored Dec 11, 2015 by Robbert Krebbers
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

iris/cofe.v iris/cofe.v +2 -0

No files found.
--- a/iris/cofe.v
+++ b/iris/cofe.v
@@ -273,6 +273,8 @@ End discrete_cofe.
 Arguments discreteC _ {_ _}.

 Definition leibnizC (A : Type) : cofeT := @discreteC A equivL _.
+Canonical Structure natC := leibnizC nat.
+Canonical Structure boolC := leibnizC bool.

 (** Later *)
 Inductive later (A : Type) : Type := Later { later_car : A }.