From fe5ac0fba7f973b2557c7ae7a6bb9248024ffacd Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sat, 21 Feb 2009 13:22:30 -0500 Subject: Time to start thinking about guards --- src/coq/Syntax.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/coq/Syntax.v') diff --git a/src/coq/Syntax.v b/src/coq/Syntax.v index 13b7e9de..b19a790e 100644 --- a/src/coq/Syntax.v +++ b/src/coq/Syntax.v @@ -187,6 +187,6 @@ Section vars. | Single : forall c t, exp t -> exp (TRecord (CConcat (CSingle c t) (CEmpty _))) | Proj : forall c t c', exp (TRecord (CConcat (CSingle c t) c')) -> exp t | Cut : forall c t c', disj (CSingle c t) c' -> exp (TRecord (CConcat (CSingle c t) c')) -> exp (TRecord c') - | Concat : forall c1 c2, disj c1 c2 -> exp (TRecord c1) -> exp (TRecord c2) -> exp (TRecord (CConcat c1 c2)) + | Concat : forall c1 c2, exp (TRecord c1) -> exp (TRecord c2) -> exp (TRecord (CConcat c1 c2)) | Guarded : forall k (c1 c2 : con (KRecord k)) c, (dvar c1 c2 -> exp c) -> exp (CGuarded c1 c2 c). End vars. -- cgit v1.2.3