diff options
| author | pboutill | 2012-04-12 20:49:11 +0000 |
|---|---|---|
| committer | pboutill | 2012-04-12 20:49:11 +0000 |
| commit | 3e70ea9c0967725bd320a6387d19cfb9d5a9b7fe (patch) | |
| tree | d1804bed966aefae16dff65c41a27fa0ba5a9bce /interp/constrintern.ml | |
| parent | 8d0136caf2458c2a2457550b1af1299098b1d038 (diff) | |
"A -> B" is a notation for "forall _ : A, B".
No good reason for that except uniformity so revert this commit if you find a
reason against it.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15146 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/constrintern.ml')
| -rw-r--r-- | interp/constrintern.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 7bfe2fd78e..ef3408414c 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -1385,8 +1385,6 @@ let internalize sigma globalenv env allow_patvar lvar c = Array.map (fun (bl,_,_) -> List.map snd bl) idl, Array.map (fun (_,ty,_) -> ty) idl, Array.map (fun (_,_,bd) -> bd) idl) - | CArrow (loc,c1,c2) -> - GProd (loc, Anonymous, Explicit, intern_type env c1, intern_type env c2) | CProdN (loc,[],c2) -> intern_type env c2 | CProdN (loc,(nal,bk,ty)::bll,c2) -> |