chore: rename confusing field name ParamInfo.prop ==> ParamInfo.proof

The type of the parameter is a proposition, but the parameter itself
is a proof.
This commit is contained in:
Leonardo de Moura 2019-11-25 07:45:46 -08:00
parent 882db55d11
commit 0592dae46f
3 changed files with 4 additions and 4 deletions

View file

@ -82,7 +82,7 @@ structure Config :=
structure ParamInfo :=
(implicit : Bool := false)
(instImplicit : Bool := false)
(prop : Bool := false)
(proof : Bool := false)
(hasFwdDeps : Bool := false)
(backDeps : Array Nat := #[])

View file

@ -133,7 +133,7 @@ private partial def pushArgsAux (infos : Array ParamInfo) : Nat → Expr → Arr
| i, Expr.app f a _, todo =>
if h : i < infos.size then
let info := infos.get ⟨i, h⟩;
if info.implicit || info.instImplicit || info.prop then
if info.implicit || info.instImplicit || info.proof then
pushArgsAux (i-1) f (todo.push tmpStar)
else
pushArgsAux (i-1) f (todo.push a)

View file

@ -62,12 +62,12 @@ checkFunInfoCache fn maxArgs? $ do
(fun (i : Nat) (pinfo : Array ParamInfo) => do
let fvar := fvars.get! i;
decl ← getFVarLocalDecl fvar;
prop ← isProp decl.type;
proof ← isProp decl.type;
let backDeps := collectDeps fvars decl.type;
let pinfo := updateHasFwdDeps pinfo backDeps;
pure $ pinfo.push {
backDeps := backDeps,
prop := prop,
proof := proof,
implicit := decl.binderInfo == BinderInfo.implicit,
instImplicit := decl.binderInfo == BinderInfo.instImplicit })
#[];