From 799afff6971ffe639c764dd88b54cad288f65bc2 Mon Sep 17 00:00:00 2001 From: herbelin Date: Sat, 31 Jul 2010 00:19:35 +0000 Subject: Fixed commit r13359 which was incomplete for its "trunk" part. Thanks to Julien for noticing it. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13366 85f007b7-540e-0410-9357-904b9bb8a0f7 --- theories/Classes/Morphisms.v | 6 ++++++ theories/Classes/SetoidDec.v | 3 +++ theories/Program/Equality.v | 3 +++ 3 files changed, 12 insertions(+) diff --git a/theories/Classes/Morphisms.v b/theories/Classes/Morphisms.v index cf72cd35f..8f7bab072 100644 --- a/theories/Classes/Morphisms.v +++ b/theories/Classes/Morphisms.v @@ -21,6 +21,12 @@ Require Export Coq.Classes.RelationClasses. Generalizable All Variables. Local Obligation Tactic := simpl_relation. +Local Notation "'λ' x .. y , t" := (fun x => .. (fun y => t) ..) + (at level 200, x binder, y binder, right associativity). + +Local Notation "'Π' x .. y , P" := (forall x, .. (forall y, P) ..) + (at level 200, x binder, y binder, right associativity) : type_scope. + (** * Morphisms. We now turn to the definition of [Proper] and declare standard instances. diff --git a/theories/Classes/SetoidDec.v b/theories/Classes/SetoidDec.v index accdd481a..762b3fc7d 100644 --- a/theories/Classes/SetoidDec.v +++ b/theories/Classes/SetoidDec.v @@ -18,6 +18,9 @@ Unset Strict Implicit. Generalizable Variables A B . +Local Notation "'λ' x .. y , t" := (fun x => .. (fun y => t) ..) + (at level 200, x binder, y binder, right associativity). + (** Export notations. *) Require Export Coq.Classes.SetoidClass. diff --git a/theories/Program/Equality.v b/theories/Program/Equality.v index ae92ad948..37c17aa9a 100644 --- a/theories/Program/Equality.v +++ b/theories/Program/Equality.v @@ -13,6 +13,9 @@ Require Export JMeq. Require Import Coq.Program.Tactics. +Local Notation "'Π' x .. y , P" := (forall x, .. (forall y, P) ..) + (at level 200, x binder, y binder, right associativity) : type_scope. + Ltac is_ground_goal := match goal with |- ?T => is_ground T -- cgit v1.2.3